R/onLoad.R

In mtennekes/tmap: Thematic Maps

.onLoad <- function(...) {
	options(tmap.style="white", tmap.mode="plot", tmap.design.mode = FALSE)
	internet <- working_internet()
	assign("internet", internet, envir = .TMAP_CACHE)
	assign("underCoverage", NULL, envir = .TMAP_CACHE)
	assign("overCoverage", NULL, envir = .TMAP_CACHE)
	assign("last_map", NULL, envir = .TMAP_CACHE)
	assign("last_map_new", NULL, envir = .TMAP_CACHE)
	assign("tmapOptions", .defaultTmapOptions, envir = .TMAP_CACHE)
	assign("tmapStyles", .defaultTmapStyles, envir = .TMAP_CACHE)
	assign("tmapFormats", .defaultTmapFormats, envir = .TMAP_CACHE)
	tips_order <- determine_tips_order()
	
	assign("tmapTipsIds", tips_order, envir = .TMAP_CACHE)
	assign("tmapTipsId", 1, envir = .TMAP_CACHE)
	
} 

.TMAP_CACHE <- new.env(FALSE, parent=globalenv())

.crs_longlat <- sf::st_crs(4326)
.crs_merc <- sf::st_crs(3857)