data_guide()

[chiyahn]

• data_guide() for all columns in every df
• data_guide(df) for all columns in df

[chiyahn]

df.mobility <- fetch_mobility()
df.policies <- fetch_policies()
df.cases <- fetch_cases()

names.cases <- names(df.cases)
names.policies <- names(df.policies)
names.mobility <- names(df.mobility)


e <- new.env(parent = emptyenv())
load("R/sysdata.rda", envir = e)
e$NAMES.CASES <- names.cases
e$NAMES.POLICIES <- names.policies
e$NAMES.MOBILITY <- names.mobility
 
do.call("save", c(ls(envir = e), list(envir = e, file = "R/sysdata.rda")))