transit <- head(long_vector, excess_rows)
parked <- tail(long_vector,excess_rows)
stow <- cbind(transit,short_vector)
arrive <- rbind(parked,stow)
Should work. See the FAQ: How to do a minimal reproducible example reprex for beginners for what to do to attract more and better answers (I haven't reversed engineered an example to test my pcode.)