data-raw/marketing_expenses_load.R

# https://rstudio4edu.github.io/rstudio4edu-book/data-pkg.html
library(tidyverse)
marketing_expenses <- readr::read_csv(here::here("data-raw", "marketing_expenses.csv"))
marketing_expenses <- marketing_expenses %>% mutate(across(where(is_character), as_factor))
usethis::use_data(marketing_expenses, overwrite = TRUE)
mchlbckr/MSBStatsData documentation built on March 9, 2024, 9:02 p.m.