R/tmapGridXYlab.R

In r-tmap/tmap: Thematic Maps

tmapGridXlab = function(facet_page, o) {
	gts = get("gts", envir = .TMAP_GRID)
	g = get("g", envir = .TMAP_GRID)
	
	gt = gts[[facet_page]]
	
	row = g$xlab_row_id
	col = g$xlab_col_ids
	
	gpar_text = rescale_gp(grid::gpar(cex = o$xlab.size, col = o$xlab.color, fontfamily = o$xlab.fontfamilty, fontface = o$xlab.fontface), o$scale_down)
	
	grb = grid::grobTree(
		grid::textGrob(label = o$xlab.text, rot = o$xlab.rotation, gp = gpar_text)
	)
	
	gt = add_to_gt(gt, grb, row = row, col = col)
	gts[[facet_page]] = gt
	
	assign("gts", gts, envir = .TMAP_GRID)
	
}


tmapGridYlab = function(facet_page, o) {
	gts = get("gts", envir = .TMAP_GRID)
	g = get("g", envir = .TMAP_GRID)
	
	gt = gts[[facet_page]]
	
	row = g$ylab_row_ids
	col = g$ylab_col_id
	
	gpar_text = rescale_gp(grid::gpar(cex = o$ylab.size, col = o$ylab.color, fontfamily = o$ylab.fontfamilty, fontface = o$ylab.fontface), o$scale_down)
	
	grb = grid::grobTree(
		grid::textGrob(label = o$ylab.text, rot = o$ylab.rotation, gp = gpar_text)
	)
	
	gt = add_to_gt(gt, grb, row = row, col = col)
	gts[[facet_page]] = gt
	
	assign("gts", gts, envir = .TMAP_GRID)
	
}