# define global variables for internal use
globalVariables(c(
".",
".data",
"base_area",
"base_prop",
"base_siblings",
"base_name",
"base_overlap",
"base_ID",
"new_area",
"new_prop",
"targetID",
"target_prop",
"target_area",
"amount",
"col_name",
"col_type",
"description",
"dup",
"external",
"externalID",
"gazClass",
"gazID",
"gazID2",
"gazMatch",
"gazName",
"geoID",
"geom",
"has_broader",
"has_broader_match",
"has_close_match",
"has_exact_match",
"has_narrower_match",
"id",
"intersect_area",
"label",
"len new_label",
"new_name",
"new_overlap",
"outMatch",
"outString",
"parentID",
"rn",
"siblings",
"source_overlap",
"target_overlap",
"tempID",
"thisName",
"unitCol",
"new_label",
"len",
"dataseries",
"newID",
"harmLab",
"sort_in",
"label_harm",
"label_new",
"label.x",
"label.y",
"dist",
"dist_0",
"dist_1",
"dist_2",
"has_0_differences",
"has_new_close_match",
"db_info",
"id_new",
"rest",
"parentName",
"new_parent_label",
"has_new_broader",
"has_source",
"tabID",
"ontoID",
"ontoMatch",
"datID",
"thisGeoID",
"keep"
))
.onLoad <- function(libname, pkgname) {
# CRAN OMP THREAD LIMIT
Sys.setenv("OMP_THREAD_LIMIT" = 1)
}
.onAttach <- function(libname, pkgname){
options(adb_testing = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.