library(readr)
library(dplyr)
construction <- as_tibble(read_csv("data-raw/construction.csv", col_types = list()))
construction <- construction %>%
select(-Total) %>%
filter(Year == 2018)
usethis::use_data(construction, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.