R/onLoad.R

In lawn: Client for 'Turfjs' for 'Geospatial' Analysis

#' @importFrom V8 v8
ct <- NULL
rand <- NULL
ht <- NULL

.onLoad <- function(libname, pkgname){
  ct <<- V8::v8();
  ct$source(system.file("js/turf516.js", package = pkgname))
  ct$source(system.file("js/turf-meta.js", package = pkgname))
  ct$source(system.file("js/turf-invariant.js", package = pkgname))
  ct$source(system.file("js/cloner.js", package = pkgname))
  ct$source(system.file("js/simple-statistics.js", package = pkgname))

  rand <<- V8::v8();
  rand$source(system.file("js/geojson_random.js", package = pkgname))

  ht <<- V8::v8();
  ht$source(system.file("js/geojsonhint-v201.js", package = pkgname))
}