Convert percent values saved as string to double Raw Raw

partyData_StringPercent_to_dblPercent.R

#Read in data
party_ready <- read_csv("Data/party_ready.csv")

#Copy data
party_time <- party_ready

#Get columns with percents
columns_with_pct <- grep("pct",colnames(party_time))

#Convert percents as strings to percents as double
for (i in columns_with_pct){
    party_time[,i]<-as.numeric(sapply(party_time[,i],function(x) gsub("%","",x)))
}

#variable "party_time" now contains the converted data frame