R/utils.R

In deepredeff: Deep Learning Prediction of Effectors

local <- new.env()

.onLoad <- function(libname, pkgname) {
  reticulate::configure_environment(pkgname)
  tf <- reticulate::import("tensorflow", delay_load = TRUE)
  assign("tf", value = tf, envir = parent.env(local))
}

#' Wildcard Expansion on File Paths
#'
#' @param ... Path
#' @param pattern Pattern
#'
#' @return Glob
package_glob <- function(..., pattern) {
  file_list <- Sys.glob(paste0(system.file(..., package = "deepredeff"), "/", pattern))
  return(file_list)
}