Count words in Rmd file using the package wordcountaddin

wordCountRmdFile.R

# This function reads a Rmd file and returns the word count 
# It uses the wordcountaddin and koRpus packages
text_stats_file <- function(rmdFile) {
  rmd <- file(rmdFile, "rt")
  text <- readLines(rmd)
  conText <- ""
  for (i in text) {
    conText <- paste(conText, i)
  }
  close(rmd)
  # count words - uses an internal function of the wordcountaddin package
  return(wordcountaddin:::text_stats_fn_(conText))
}

# This function renders a Rmd file and prints the word count
render_and_count <- function(rmdFile) {
  rmarkdown::render(rmdFile)
  n_words <- text_stats_file(rmdFile)$n_words_korp
  cat("\n\nword count: ", n_words, "\n\n")
}