R/count_rmd.R

In jtr13/jtr: Miscellaneous functions

#' Check for duplicates in \code{_bookdown.yml} and any left out \code{Rmds}
#'
#' @return duplicates in \code{_bookdown.yml} and any left out \code{Rmds}
#' @examples
#' count_rmds()
#'
#' @export
count_rmds <- function() {
  rmd_files <- list.files()
  rmd_files <- rmd_files[grepl(".[Rr]md$", rmd_files)]
  if(!file.exists("_bookdown.yml")) stop ("Can't find a _bookdown.yml file to analyze.")
  rmds_in_yml <- readLines("_bookdown.yml")
  rmds_in_yml <- rmds_in_yml  %>% stringr::str_remove_all("[',\\]]") %>%
    stringr::str_remove_all("#.*$") %>%
    stringr::str_trim()
  rmds_in_yml <- rmds_in_yml[grepl(".[Rr]md", rmds_in_yml)]
  cat("dupes in _bookdown.yml:\n")
  dupes <- rmds_in_yml[duplicated(rmds_in_yml)]
  if (length(dupes) > 0) print(dupes) else cat("None\n")
  cat("Rmd files not in _bookdown.yml:\n")
  missing <- rmd_files[!(rmd_files %in% rmds_in_yml)]
  if (length(missing) > 0) print(missing) else cat("None\n")
}