tests/testthat/globals.R

In felix-hof/hMean: Confidence Curves and P-Value Functions for Meta-Analysis

# get the old function
get_old_FUN <- function(
    path,
    fun_name
) {

    # Source the utils file as well
    code_utils <- paste0(
        readLines(
            "https://raw.githubusercontent.com/felix-hof/confMeta/main/R/utils.R",
            warn = FALSE
        ),
        collapse = "\n"
    )
    code_function <- paste0(
        readLines(path, warn = FALSE),
        collapse = "\n"
    )
    e <- new.env()
    eval(parse(text = code_utils), envir = e)
    eval(parse(text = code_function), envir = e)
    ls(envir = e)

    get(fun_name, envir = e)
}