tests/package-box-supp/startsWith-sys-path.R

In this.path: Get Executing Script's Path

this.path::sys.path(verbose = FALSE)


#' @export
doc_cntxt <- get(
    ".this.path::document.context",
    envir = sys.frame(this.path:::.getframenumber()),
    inherits = FALSE
)


#' @export
fun_that_calls_src_path <- function (...)
{
    this.path::src.path(...)
}


#' @export
fun_that_calls_env_path <- function (...)
{
    this.path::env.path(...)
}