Here is what I ended up with.
namekey <- c("County Name"="County",
"Public Health Region (PHR)"="Region",
"Total Doses Allocated"="Doses_alloc",
"Vaccine Doses Administered"="Doses_admin",
"People Vaccinated with at least One Dose"="People_one_dose",
"People Fully Vaccinated"="People_fully",
"Population, 16+"="Pop_adult",
"Population, 65+"="Pop_old",
"Population, Phase 1A Healthcare Workers"="Pop_healthcare",
"Population, Phase 1A Long-term Care Residents"="Pop_longterm",
"Population, Phase 1B Any Medical Condition"="Pop_1B_medical")
foo <- readxl::read_excel(Vaccine_path, sheet=2, na=c("", "--"))
names(foo) <- namekey[names(foo)]