data-raw/generate_chibi_names.R

In lockedata/locketweet: Helps Automatic Tweeting for Locke Data

chibi_names <- fs::dir_ls("inst/extdata/assets")
chibi_names <- stringr::str_replace(chibi_names, "inst\\/extdata\\/assets\\/", "")
chibi_names <- chibi_names[stringr::str_detect( chibi_names, "chibi")]
chibis <- tibble::tibble(chibi = chibi_names)
chibis <- dplyr::group_by(chibis, chibi)
chibis <- dplyr::mutate(chibis,
                        person = stringr::str_split(chibi, "_")[[1]][3],
                        person = stringr::str_replace(person, "\\.png", ""))
chibis <- dplyr::ungroup(chibis)
usethis::use_data(chibis, overwrite = TRUE)