R/package.R

Defines functions .onUnload .onLoad .onAttach

globalVariables(c("..", "self", "private", "N"))

.generator_null <- NULL
.compilation_unit <- NULL

.onAttach <- function(libname, pkgname) {
}

.onLoad <- function(libname, pkgname) {

  # required environment variable on Mac for parallel use of libtorch:
  osname<-tolower(Sys.info()[["sysname"]])
  if (osname == "darwin" && Sys.getenv("OMP_NUM_THREADS") == "") {
    Sys.setenv(OMP_NUM_THREADS = parallel::detectCores())
  }

  cpp_vol2bird_namespace__store_main_thread_id()
  cpp_vol2bird_initialize()
  cpp_vol2bird_set_wsr88d_site_location(file.path(find.package(pkgname), "librsl", "wsr88d_locations.dat"))
  
  install_success <- TRUE
   
  if (mistnet_exists() && install_success) {
    # in case init fails we will just have disabled mistnet and run without it..
    tryCatch(
      {
        mistnet_start(verbose = FALSE)
      },
      error = function(e) {
      }
    )
  }
}

.onUnload <- function(libpath) {

}

Try the vol2birdR package in your browser

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

vol2birdR documentation built on Sept. 28, 2024, 1:07 a.m.