rpotter6298
15 lines
411 B
R
Executable File
15 lines
411 B
R
Executable File
import_libs <- function() {
|
|
function_files <- list.files(file.path("scripts", "backend"), full.names = TRUE)
|
|
|
|
for (file in function_files) {
|
|
import_env <- new.env()
|
|
source(file, local = import_env)
|
|
function_names <- ls(import_env)
|
|
function_list <- mget(function_names, import_env)
|
|
assign(basename(file), function_list, envir = .GlobalEnv)
|
|
}
|
|
}
|
|
|
|
|
|
|
|
worklib = import_libs() |