if (FALSE) {
df <- data.frame(col_1 = c("a","b","c"), col_2 = c(1,2,3))
create_blank_df <- function() {
data.frame(col_1 = NA_character_, col_2 = NA_integer_)
}
df_1 <- get_cache_or_create(
"df",
create_blank_df
)
df_2 <- get_cache_or_create(
"df_2",
create_blank_df
)
}
Run the code above in your browser using DataLab