You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
102 lines
2.7 KiB
102 lines
2.7 KiB
#' Count lines of code, comments and whitespace in source files/archives by file
|
|
#'
|
|
#' @md
|
|
#' @param source file, directory or archive to read from (can be a valid URL)
|
|
#' @param extract_with passed into `cloc` command line. This option is only
|
|
#' needed if cloc is unable to figure out how to extract the contents of
|
|
#' the input file(s) by itself.
|
|
#' @return tibble
|
|
#' @note Unlike it's `cloc()` counterpart, no percentages are reported by this function
|
|
#' @export
|
|
#' @examples
|
|
#' # whole dir
|
|
#' str(cloc_by_file(system.file("extdata", package="cloc")))
|
|
#'
|
|
#' # single file
|
|
#' str(cloc_by_file(system.file("extdata", "qrencoder.cpp", package="cloc")))
|
|
cloc_by_file <- function(source, extract_with=NULL) {
|
|
|
|
perl <- find_perl()
|
|
|
|
tis_url <- is_url(source)
|
|
|
|
if (tis_url) { # download the source if a URL was specified
|
|
tdir <- tempdir()
|
|
utils::download.file(source, file.path(tdir, basename(source)), method = "curl", quiet = TRUE)
|
|
source <- file.path(tdir, basename(source))
|
|
on.exit(unlink(source), add = TRUE)
|
|
}
|
|
|
|
source <- path.expand(source)
|
|
|
|
stopifnot(file.exists(source))
|
|
|
|
c(
|
|
system.file("bin/cloc.pl", package = "cloc"),
|
|
"--quiet",
|
|
"--by-file",
|
|
"--csv",
|
|
source
|
|
) -> args
|
|
|
|
# tack on the "--extract-with" value (if specified)
|
|
if (!is.null(extract_with)) {
|
|
cmd <- c(args, sprintf('--extract-with="%s"', extract_with))
|
|
}
|
|
|
|
processx::run(
|
|
command = perl,
|
|
args = args
|
|
) -> res
|
|
|
|
dat <- res$stdout
|
|
|
|
# # make the command line
|
|
#
|
|
# sprintf(
|
|
# "%s %s --quiet --by-file --csv %s",
|
|
# perl,
|
|
# shQuote(system.file("bin/cloc.pl", package = "cloc")),
|
|
# source
|
|
# ) -> cmd
|
|
#
|
|
# # tack on the "--extract-with" value (if specified)
|
|
# if (!is.null(extract_with)) cmd <- sprintf('%s --extract-with="%s"', cmd, extract_with)
|
|
#
|
|
# # run the perl script
|
|
# dat <- system(cmd, intern = TRUE)
|
|
|
|
# nothing to count
|
|
if (nzchar(dat) == 0) {
|
|
return(
|
|
data.frame(
|
|
source = basename(source),
|
|
language = NA_character_,
|
|
filename = NA_character_,
|
|
loc = 0,
|
|
blank_lines = 0,
|
|
comment_lines = 0,
|
|
stringsAsFactors = FALSE
|
|
)
|
|
)
|
|
}
|
|
|
|
dat <- unlist(strsplit(dat, "\r?\n"))
|
|
|
|
# read in the output from the perl script
|
|
fil <- read.table(
|
|
text = paste(utils::tail(dat, -2), sep = "", collapse = "\n"),
|
|
col.names = c("language", "filename", "blank_lines", "comment_lines", "loc"),
|
|
sep = ",", comment.char = "", stringsAsFactors = FALSE
|
|
)
|
|
|
|
fil$source <- basename(source)
|
|
|
|
# reorganize columns
|
|
fil <- fil[, c("source", "filename", "language", "loc", "blank_lines", "comment_lines")]
|
|
|
|
class(fil) <- c("tbl_df", "tbl", "data.frame")
|
|
|
|
fil
|
|
|
|
}
|
|
|