R/utils.R

Defines functions package_glob .onLoad

Documented in package_glob

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)
}

Try the deepredeff package in your browser

Any scripts or data that you put into this service are public.

deepredeff documentation built on July 16, 2021, 5:07 p.m.