rm(list = ls())
library(dplyr)
x <- read.csv('data-raw/DK-cities-monthly-all-cause-mortality1852-54.csv')
x$Date <- as.Date(x$Date, "%d%b%Y")
x$Day <- x$Month <- x$Year <- NULL
colnames(x) <- c("date", "<10", "10-25", "26-50", ">50")
dk_cities_allcause <- x
devtools::use_data(dk_cities_allcause, overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.