R/zzz.R

In 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