https://github.com/cran/pkgdown
Tip revision: a4818cca780db29741daa700c63a640567d99327 authored by Hadley Wickham on 03 May 2018, 07:55:54 UTC
version 1.0.0
version 1.0.0
Tip revision: a4818cc
clean.R
#' Clean site
#'
#' Deletes all files in `doc/` (except for `CNAME`)
#'
#' @inheritParams build_site
#' @export
clean_site <- function(pkg = ".") {
pkg <- as_pkgdown(pkg)
top_level <- dir_ls(pkg$dst_path)
top_level <- top_level[!path_file(top_level) %in% c("CNAME", "dev")]
is_dir <- is_dir(top_level)
dir_delete(top_level[is_dir])
file_delete(top_level[!is_dir])
invisible(TRUE)
}