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.
32 lines
696 B
32 lines
696 B
6 years ago
|
#' Run [cloc_pkg()] on active package and format it as a markdown table for knitting into reports
|
||
|
|
#'
|
||
|
|
#' @md
|
||
|
|
#' @note Target application is output to Rmd files
|
||
|
|
#' @export
|
||
|
|
cloc_pkg_md <- function() {
|
||
|
|
|
||
|
|
pkg_root <- rprojroot::find_package_root_file(path = ".")
|
||
|
|
|
||
|
|
as.data.frame(
|
||
|
|
read.dcf(file.path(pkg_root, "DESCRIPTION")),
|
||
|
|
stringsAsFactors=FALSE
|
||
|
|
)$Package[1] -> pkg_name
|
||
|
|
|
||
|
|
knitr::kable(
|
||
|
|
setNames(
|
||
|
|
cloc::cloc_pkg()[,-1],
|
||
|
|
c(
|
||
|
|
"Lang",
|
||
|
|
"# Files", "(%)",
|
||
|
|
"LoC", "(%)",
|
||
|
|
"Blank lines", "(%)",
|
||
|
|
"# Lines", "(%)"
|
||
|
|
)
|
||
|
|
),
|
||
|
|
format = "markdown",
|
||
|
|
digits = 2,
|
||
|
|
caption = sprintf("clock Package Metrics for %s", pkg_name)
|
||
|
|
)
|
||
|
|
|
||
|
|
}
|