R/nu-global.R

In neonUtilities: Utilities for Working with NEON Data

# Set the base url for the NEON API

nu.globals <- new.env()

.onAttach <- function(libname, pkgname) {
  
  nu.globals$baseurl <- Sys.getenv("NEON_API_URL")
  if(nu.globals$baseurl=="") {
    nu.globals$baseurl <- "https://data.neonscience.org/api/v0/"
  }
  
}


# print the base url for the NEON API

printBaseUrl <- function() {
  
  print(nu.globals$baseurl)
  
}