R/pkgname.R

Defines functions .this_package_path .this_package_name .onLoad

# nocov start
.onLoad <- function(libname, pkgname)
{
    # Init text logger by default
    lg = set_log_layout("text")
    assign(pkgname, lg, envir = parent.env(environment()))
}
# nocov end


.this_package_name <- function()
{
    methods::getPackageName()
}


.this_package_path <- function(...)
{
    system.file(package = .this_package_name()) |>
        file.path(...) |>
        normalizePath(winslash = "/", mustWork = FALSE)
}

Try the pipeflow package in your browser

Any scripts or data that you put into this service are public.

pipeflow documentation built on April 3, 2025, 10:50 p.m.