12bars_salsa

library(openxlsx)
library(readr)
library(dplyr)

mappings = read.xlsx("mappings.tsv.xlsx") %>% tbl_df()

registration = read.xlsx("Final Registration List.xlsx")
cols = gsub(" ", ".", mappings$FinalRegistrationColumnname)
registration = registration[,!grepl("^What", colnames(registration))] %>%
  select(cols) %>% distinct() %>% arrange(Last.Name) %>% tbl_df()
registration

# change column names in Registration to expected col names for Import Spreadsheet
forImport = registration
colnames(forImport) = mappings$ImportSpreadsheet
forImport
forImport %>% count(City, State, `Postal Code`) %>% arrange(-n)

write_csv(forImport, "Import.csv", na="")