R/zzz.R

In YsoSirius/windfarmGA: Genetic Algorithm for Wind Farm Layout Optimization

# nocov start
utils::globalVariables(
  c(
    "X", "Y",
    "a_weibull", "k_weibull",
    "var1.pred", "x", "y",
    "element_rect", "element_line",
    "unit",
    "srtm_crop", "cclRaster", "weibullsrc",
    "cl",
    "k"
  )
)

## Used only or random_search_single for testing user-input
.onLoad <- function(libname, pkgname) {
  options(
    windfarmGA.connection = stdin(),
    windfarmGA.cT = 0.88,
    windfarmGA.air_rh = 1.225,
    windfarmGA.k = 0.075,
    windfarmGA.max_angle = 20,
    windfarmGA.max_distance = 100000,
    windfarmGA.max_population = 300,
    windfarmGA.max_selection = 100
  )
}

## Is this still necessary?
.onUnload <- function(libpath) {
  library.dynam.unload("windfarmGA", libpath)
}

# nocov end