data-raw/prep_datasets.R

In tidymodels/modeldata: Data Sets Useful for Modeling Examples

## code to prepare `tate_text`

library(tidyverse)
artwork <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-01-12/artwork.csv")

tate_text <- artwork %>%
  filter(year >= 1990, artistRole == "artist") %>%
  select(id, artist, title, medium, year) %>%
  mutate(across(c(artist, medium), as.factor)) %>%
  arrange(year, artist)

usethis::use_data(tate_text, overwrite = TRUE)