R/AAAA.R

In ncss-tech/rosettaPTF: R Frontend for Rosetta Pedotransfer Functions

rosetta_module <- NULL
numpy_module <- NULL

.install_python_message <- function() message("Python was not found on this system.\nTry setting the path manually with `options(rosettaPTF.python_path='/path/to/python')` or `options(rosettaPTF.arcpy_path='C:/path/to/ArcPro/Python')`")

#' @importFrom reticulate import
.loadModules <-  function() {
  pypath <- NULL

  # leave it up to reticulate
  if (is.null(find_python())) {
    # sometimes finds unsuitable python instance
    x <- Sys.which("python")
    if (length(x) > 0) {
      options(rosettaPTF.python_path = x[1])
      pypath <- find_python()
    }
  }

  if (!reticulate::py_available() && is.null(pypath)) {
    .install_python_message()
  }

  # delay load modules (will be loaded when accessed via $)
  if (is.null(rosetta_module)) {
    try(rosetta_module <<- reticulate::import("rosetta", delay_load = TRUE), silent = TRUE)
  }

  if (is.null(numpy_module)) {
    try(numpy_module <<- reticulate::import('numpy', delay_load = TRUE), silent = TRUE)
  }

  !is.null(rosetta_module) && !is.null(numpy_module)

}

#' @importFrom reticulate configure_environment
.onLoad <- function(libname, pkgname) {

  # if (reticulate::configure_environment(pkgname)) {
    .loadModules()
  # }

}