Okay, I got this work with, though I am having to remove certain columns manually that I did not want to be duplicated. But all in all, it got me to where I needed to be able to get the job done. Thank you kindly @ FJCC.
test <- pivot_longer(pre_stead, cols = c("uncertanty_multiply_quarter_sec",
"obs_p_arrival",
"sec",
"fm_qual",
"wt",
"delta",
"azm",
"ain",
"obs_arv",
"obs_trv",
"theo_trv",
"resid",
"sta_cor",
"DIST",
"AZM",
"AIN",
"HRMN",
"P_RES",
"DATE",
"Time",
"ORIGIN",
"LAT_deg",
"LAT_min",
"LONG_deg",
"LONG_min",
"DEPTH",
"MAG",
"NO_DM",
"GAP_M",
"RMS",
"ERH",
"ERZ",
"reciever_latitude",
"reciever_longitude",
"reciever_elevation_m"))
test2 <- pivot_wider(test, names_from = c("name", "type"), values_from = value)