R/mistnet_load.R

In vol2birdR: Vertical Profiles of Biological Signals in Weather Radar Data

.globals <- new.env(parent = emptyenv())
.globals$mistnet_started <- FALSE

#' The default 'MistNet' version
#' @return the default 'MistNet' version
#' @keywords internal
mistnet_default <- function() {
  "1.0.0"
}

#' Initialize the 'MistNet' system if enabled.
#' @param version version of 'MistNet' library
#' @param reload if 'MistNet' library should be reloaded or not, default FALSE.
#' @param verbose Logical, when `TRUE` prints text to console.
#' @keywords internal
mistnet_start <- function(version = mistnet_default(), reload = FALSE, verbose = TRUE) {
  if (!mistnet_exists()) {
    stop("'MistNet' is disabled.")
  }

  if (.globals$mistnet_started && !reload) {
    return()
  }

  # Path where the DLL should be
  dll_path <- file.path(install_path(), "lib")
  if(verbose) message("Attempting to load MistNet from:", dll_path, "\n")

  # Try-catch block to capture any errors during initialization
  tryCatch({
    cpp_mistnet_init(dll_path)
    .globals$mistnet_started <- TRUE
      if(verbose) message("MistNet successfully initialized.\n")
  }, error = function(e) {
      stop("Error during MistNet initialization: ", e$message, "\n")
  }, warning = function(w) {
      warning("Warning during MistNet initialization: ", w$message, "\n")
  })
}