text elevation #392

NEWS.md

@@ -1,5 +1,6 @@
 # v0.3.6
 
+* `add_text()` gets `elevation` argument for when using a `data.frame`
 * `map_click` event added to shiny - e.g. `observeEvent({input$map_click})`
 
 # v0.3.5

R/map_layer_text.R

@@ -84,6 +84,7 @@ add_text <- function(
 	text,
 	lon = NULL,
 	lat = NULL,
+	elevation = NULL,
 	polyline = NULL,
 	fill_colour = NULL,
 	fill_opacity = NULL,
@@ -120,6 +121,7 @@ add_text <- function(
 	l <- list()
 	l[["lon"]] <- force( lon )
 	l[["lat"]] <- force( lat )
+	l[["elevation"]] <- force( elevation )
 	l[["fill_colour"]] <- force( fill_colour )
 	l[["fill_opacity"]] <- resolve_opacity( fill_opacity )
 	l[["size"]] <- force( size )
@@ -168,7 +170,7 @@ add_text <- function(
 		geometry_column <- c( "geometry" )
 		shape <- rcpp_text_geojson( data, l, geometry_column, digits )
 	} else if ( tp == "df" ) {
-		geometry_column <- list( geometry = c("lon", "lat") )
+		geometry_column <- list( geometry = c("lon", "lat", "elevation") )
 		shape <- rcpp_text_geojson_df( data, l, geometry_column, digits )
 	} else if ( tp == "sfencoded" ) {
 		geometry_column <- "polyline"

src/text.cpp

@@ -6,6 +6,7 @@
 
 Rcpp::List text_defaults(int n) {
 	return Rcpp::List::create(
+		_["elevation"] = mapdeck::defaults::default_elevation(n),
 		_["fill_colour"] = mapdeck::defaults::default_fill_colour(n),
 		_["anchor"] = mapdeck::defaults::default_text_anchor(n),
 		_["angle"] = mapdeck::defaults::default_angle(n),
@@ -71,6 +72,7 @@ Rcpp::List rcpp_text_geojson_df(
 		parameter_exclusions,
 		geometry_columns,
 		true,  // jsonify legend
+		true, // elevation
 		digits
 	);
 }