R/tmapLeaflet.R

In r-tmap/tmap: Thematic Maps

get_facet_id = function(row, col, nrow, ncol) {
	col + (row - 1L) * ncol
}

get_lf = function(facet_row, facet_col, facet_page) {
	lfs = get("lfs", envir = .TMAP_LEAFLET)
	nrow = get("nrow", envir = .TMAP_LEAFLET)
	ncol = get("ncol", envir = .TMAP_LEAFLET)
	
	lfsi = lfs[[facet_page]]
	
	fr = max(1, facet_row) # facet_row can be -1 or -2
	fc = max(1, facet_col) # facet_row can be -1 or -2
	
	lfid = get_facet_id(fr, fc, nrow, ncol)
	
	lfsi[[lfid]]
}

assign_lf = function(lf, facet_row, facet_col, facet_page) {
	lfs = get("lfs", envir = .TMAP_LEAFLET)
	nrow = get("nrow", envir = .TMAP_LEAFLET)
	ncol = get("ncol", envir = .TMAP_LEAFLET)

	
	fr = max(1, facet_row) # facet_row can be -1 or -2
	fc = max(1, facet_col) # facet_row can be -1 or -2
	
	
	
	lfid = get_facet_id(fr, fc, nrow, ncol)
	
	lfs[[facet_page]][[lfid]] = lf
	assign("lfs", lfs, envir = .TMAP_LEAFLET)
	NULL
}

tmapLeafletWrap = function(label, facet_row, facet_col, facet_page, o) {
	
	NULL
}

tmapLeafletXtab = function(label, facet_row, facet_col, facet_page, o) {
}