R/zzz.R

In iofeidis/tripr: T-cell Receptor/Immunoglobulin Profiler (TRIP)

.onLoad <- function(libname, pkgname){
    # e <- new.env(parent = parent.env(environment()))
    utils::globalVariables(c("used_columns", "..XColumns", "..temp.names",
        "output_folder", "pi_distribution", "logFile"))
    if (!file.exists(paste0(system.file("extdata", package="tripr"), 
            "/output"))) {
        fs::dir_create(paste0(system.file("extdata", package="tripr"), 
                            "/output"),
                        mode = "u=rwx,go=rwx")
    }
    if (!file.exists(paste0(system.file("extdata", package="tripr"), 
            "/log_files"))) {
        fs::dir_create(paste0(system.file("extdata", package="tripr"), 
                            "/log_files"),
                        mode = "u=rwx,go=rwx")
    }
    logfile()
    ## output folder name as system time
    output_path <- paste0(system.file("extdata/output", package="tripr"), 
        "/output_", format(Sys.time(), "%H%M%S"))
    # output path
    e$output_folder <- paste0(fs::path(output_path), "/output_tables")
    # Create output_folder directory .onLoad
    fs::dir_create(paste0(e$output_folder), mode = "u=rwx,go=rwx")
}

.onAttach <- function(libname, pkgname) {
    packageStartupMessage("Welcome to TRIP tool!")
}