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.
|
|
|
setNames <- function(object = nm, nm) {
|
|
|
|
names(object) <- nm
|
|
|
|
object
|
|
|
|
}
|
|
|
|
|
|
|
|
is_url <- function (path) { grepl("^(git|http|ftp)s?://", path) }
|
|
|
|
|
|
|
|
find_perl <- function() {
|
|
|
|
|
|
|
|
perl <- Sys.which("perl")
|
|
|
|
|
|
|
|
if (perl == "") {
|
|
|
|
stop(
|
|
|
|
"Cannot find 'perl'. cloc requires perl to be installed and on the PATH.",
|
|
|
|
call. = FALSE
|
|
|
|
)
|
|
|
|
}
|
|
|
|
|
|
|
|
return(perl)
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
is_rmd_file <- function(path) { grepl("\\.Rmd$", path, ignore.case = TRUE) }
|