data-raw/clean_temp_file.R

library(purrr)
list.files(path = "inst/",pattern = "html$",recursive = TRUE,full.names = TRUE) %>% lapply(fs::file_delete)
list.dirs(path = "inst/",recursive = TRUE,full.names = TRUE) %>%
  str_subset(pattern = "_files$")%>% lapply(fs::dir_delete)
list.dirs()
VincentGuyader/tutor documentation built on June 6, 2024, 12:35 p.m.