rm(list=ls())
# install.packages("data.table")
library(data.table)
## Load all data
temp <- list.files(path = "../favorita_grocery_sales_forecasting/data/", pattern="*.csv")
temp2 <- paste0("../favorita_grocery_sales_forecasting/data/", temp)
fv = lapply(setNames(temp2, make.names(gsub("*.csv$", "", temp))),fread)
saveRDS(fv,file="../favorita_grocery_sales_forecasting/data/fv.rds")
#laod like this in other scripts
#fv = readRDS(file="../favorita_grocery_sales_forecasting/data/fv.rds")
fv$stores$city
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.