Reputation: 1568
is there a better way to change the class of these dataframes and columns than repeating this? Thanks!
df46$`Measurement Date` <- as.Date(df46$`Measurement Date`, format = "%Y-%m-%d")
df45$`Measurement Date` <- as.Date(df45$`Measurement Date`, format = "%Y-%m-%d")
df44$`Measurement Date` <- as.Date(df44$`Measurement Date`, format = "%Y-%m-%d")
df43$`Measurement Date` <- as.Date(df43$`Measurement Date`, format = "%Y-%m-%d")
df42$`Measurement Date` <- as.Date(df42$`Measurement Date`, format = "%Y-%m-%d")
df41$`Measurement Date` <- as.Date(df41$`Measurement Date`, format = "%Y-%m-%d")
df40$`Measurement Date` <- as.Date(df40$`Measurement Date`, format = "%Y-%m-%d")
Would using the lapply function make more sense?
lapply(df46:df40[`Measurement Date`], Date)
Upvotes: 1
Views: 112
Reputation: 527
You can try with eval parse:
for (i in 40:46){
eval(parse(text =
paste0('df',i,'$`Measurement Date` <-
as.Date(df',i,'$`Measurement Date`, format = "%Y-%m-%d")')
))
}
Upvotes: 4