library(readr)
library(dplyr)
# load data --------------------------------------------------------------------
raw_data <- read_csv(here::here("data-raw/twins/twins.csv"))
# cleaning: none required
twins <- raw_data |>
janitor::clean_names() |>
select(-social)
usethis::use_data(twins, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.