## code to prepare `NAME_OF_DATA_SET` dataset goes here

NAME_OF_DATA_SET <- ...

library(janitor)
NAME_OF_DATA_SET <- clean_names(NAME_OF_DATA_SET)

library(pins)
library(here)

board <- board_folder(here("pkgdown/assets/pins-board"), versioned = FALSE)
board |> pin_write(NAME_OF_DATA_SET, "NAME_OF_DATA_SET", type = "rds")
board |> write_board_manifest()
