rm(list = ls())
all_cause_1852_1854 <- read.csv("data-raw/all_cause_1852_1854.csv",
stringsAsFactors = F)
all_cause_1852_1854$date <- as.Date(all_cause_1852_1854$date)
devtools::use_data(all_cause_1852_1854, overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.