dirs <- c(here::here("data"), here::here("figs")) %>%
  purrr::keep(fs::dir_exists)
#dirs
dirs %>%
  purrr::map(fs::dir_ls) %>%
  purrr::flatten_chr() %>%
  fs::file_delete()