data-raw/generate_blog_data.R

source("data-raw/code/get_gh_posts_info.R")
source("data-raw/code/get_all_posts.R")
lockedata_blog <- all_info
lockedata_blog <- dplyr::mutate(lockedata_blog,
                         title = stringr::str_replace_all(title, "…", "!"),
                         title = stringr::str_replace_all(title, "–", "-"),
                         title = stringr::str_replace_all(title, "’", "'"))

usethis::use_data(lockedata_blog, overwrite = TRUE)
lockedata/locketweet documentation built on May 21, 2019, 1:19 p.m.