R/count_lines.R

In junkka/r-custom: R Custom

#' Count lines in R files
#'
#' Count lines in all R files in a certain path.
#'
#' @param path directory path
#' @export
#' @importFrom stringr str_replace str_extract
#' @examples
#' count_lines()
#' 


count_lines <- function(path = "."){
  x <- system(paste0("find ", path," -name '*.R' | xargs wc -l"), intern = TRUE)
  lines <- as.integer(gsub("^( )*([0-9]*)(.*)", "\\2", x))
  path <- gsub("^( )*[0-9]* ", "", x)
  folder <- str_replace(path, "[a-zA-Z0-9_-]*\\.R$", "")
  file   <- str_extract(path, "[a-zA-Z0-9_-]*\\.R$")
  res <- data.frame(path, folder, file, lines, stringsAsFactors = FALSE)
  message(paste("Total:", res$lines[nrow(res)]))
  res[-nrow(res), ]
}