R/zzz.R

In TKCat: Tailored Knowledge Catalog

## Managing local collections ----
tkcatEnv <- new.env(hash=TRUE, parent=emptyenv())
assign(
   x="COLLECTIONS",
   value=dplyr::tibble(
      title=character(), description=character(), json=character()
   ),
   envir=tkcatEnv
)
assign(
   x="MAPPERS",
   value=list(),
   envir=tkcatEnv
)

## Importing built-in collections and mappers when loading the library ----
.onLoad <- function(libname, pkgname){
   assign(
      x="COL_SCHEMA",
      value=paste(readLines(system.file(
         "Collections", "Collection-Schema.json",
         package=pkgname
      )), collapse="\n"),
      envir=tkcatEnv
   )
   files <- list.files(
      path=system.file(
         "Collections", "Built-in",
         package=pkgname
      ),
      pattern="[.]json$", ignore.case=TRUE,
      full.names=TRUE
   )
   for(f in files){
      import_local_collection(f)
   }
   files <- list.files(
      path=system.file(
         "Collections", "Built-in",
         package=pkgname
      ),
      pattern="[-]mapper[.]R$", ignore.case=FALSE,
      full.names=TRUE
   )
   for(f in files){
      fun <- source(f, local=TRUE)$value
      stopifnot(is.function(fun))
      import_collection_mapper(
         collection=sub("[-]mapper[.][R]$", "", basename(f)),
         fun=fun
      )
   }
}