R/reset_site.R

In carpentries/sandpaper: Create and Curate Carpentries Lessons

#' Remove all files associated with the site
#'
#' Use this if you want to rebuild your site from scratch.
#'
#' @param path the path to the site
#'
#' @export
#' @examplesIf sandpaper:::example_can_run()
#' tmp <- tempfile()
#' create_lesson(tmp, open = FALSE, rmd = FALSE)
#' build_lesson(tmp, preview = FALSE)
#' dir(file.path(tmp, "site"))
#' reset_site(tmp)
#' dir(file.path(tmp, "site"))
reset_site <- function(path = ".") {
  check_lesson(path)
  if (fs::dir_exists(path_site(path))) {
      fs::dir_delete(path_site(path))
  }
  create_site(path)
}