# warn_perlbrew_envvars
# simply report, via warnings, the names and values of perlbrew related
# environment variables.
warn_perlbrew_envvars <- function () {
e <- Sys.getenv()
n <- names(e)
p <- n[n %>% grep(pattern = '^PERL', ignore.case = TRUE)]
warning(paste0(p, sep = "\n"))
warning(paste0(e[p], sep = "\n"))
}
which_perl <- function() {
path <- Sys.which("perl")[["perl"]]
}
perlbrew_free_path <- function(mock_root = "") {
## get current PATH
sys_path <- unlist(strsplit(Sys.getenv("PATH"), split = ":"))
## filter mock_root
sys_path <- sys_path[!grepl(sys_path, pattern = mock_root)]
## filter any perlbrew*/bin path
sys_path <- sys_path[!grepl(sys_path, pattern = "/perlbrew[^/]*/bin")]
## reconstitute
sys_path <- paste0(sys_path, collapse = ":")
return(sys_path)
}
# covr installs the package into tmp without files listed in .Rbuildignore
project_srcdir <- function() {
if (Sys.getenv("R_COVR", unset = "false") == "true") {
proj_root <- Sys.getenv("R_COVR_SRCDIR")
} else {
proj_root <- here::here()
}
proj_root
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.