R/zzz.R

In UCLouvain-CBIO/scpdata: Single-Cell Proteomics Data Package

## Put onload and onAttach functionality

##' @importFrom utils packageVersion
.onAttach <- function(libname, pkgname) {
    msg <- paste0("\nThis is scpdata version ", 
                    packageVersion("scpdata"),
                    ".\nUse 'scpdata()' to list available data sets.")
    packageStartupMessage(msg)  
}

##' @importFrom utils read.csv
.onLoad <- function(libname, pkgname) {
    ## exports each resource name (i.e., title) into a function
    fl <- system.file("extdata", "metadata.csv", package = pkgname)
    titles <- read.csv(fl, stringsAsFactors = FALSE)$Title
    createHubAccessors(pkgname, titles)
}