library(readr)
library(dplyr)
library(stringr)
# load data --------------------------------------------------------------------
raw_data <- read_csv(here::here("data-raw/comics/comics.csv"))
# cleaning: none required
comics <- raw_data |>
filter(!is.na(appearances)) |>
mutate(publisher = ifelse(publisher == "dc", "DC", "Marvel"))
usethis::use_data(comics, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.