rm(list = ls())
broad_st <- read.csv("data-raw/london-broad-street.csv",
stringsAsFactors = F)
broad_st$date <- paste(broad_st$year, broad_st$month, broad_st$day, sep = "-")
broad_st$year <- broad_st$month <- broad_st$day <- NULL
devtools::use_data(broad_st, overwrite = T)
Add the following code to your website.
Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.