docs/examples/add_remove_layers/add_remove_layers.R

In SymbolixAU/mapdeck: Interactive Maps Using 'Mapbox GL JS' and 'Deck.gl'

library(shiny)
library(shinydashboard)
library(mapdeck)

url <- 'https://raw.githubusercontent.com/plotly/datasets/master/2011_february_aa_flight_paths.csv'
flights <- read.csv(url)
flights$id <- seq_len(nrow(flights))
flights$stroke <- sample(1:3, size = nrow(flights), replace = T)
flights$info <- paste0("<b>",flights$airport1, " - ", flights$airport2, "</b>")

ui <- dashboardPage(
	dashboardHeader()
	, dashboardSidebar(
		actionButton(inputId = "arc", label = "arc")
		, actionButton(inputId = "path", label = "path")
		, actionButton(inputId = "scatterplot", label = "scatterplot")
	)
	, dashboardBody(
		mapdeckOutput(
			outputId = "map"
			, height = "600"
		)
	)
)

server <- function( input, output ) {

	#set_token( Sys.getenv("MAPBOX") )

	output$map <- renderMapdeck({
		mapdeck()
	})

	observeEvent({input$arc},{
		res <- input$arc %% 2
		if( res == 1 ) {
			mapdeck_update(map_id = "map") %>%
				add_arc(
					data = flights
				  , origin = c("start_lon", "start_lat")
				  , destination = c("end_lon", "end_lat")
				  , stroke_from = "airport1"
				  , stroke_to = "airport2"
					, legend = TRUE
				)
		} else {
			mapdeck_update(map_id = "map") %>%
				clear_arc()
		}
	})


	observeEvent({input$path},{
		res <- input$path %% 2
		if( res == 1 ) {
			mapdeck_update(map_id = "map") %>%
				add_path(
					data = roads
					, stroke_colour = "RIGHT_LOC"
					, legend = TRUE
				)
		} else {
			mapdeck_update(map_id = "map") %>%
				clear_path()
		}
	})

	observeEvent({input$scatterplot},{
		res <- input$scatterplot %% 2
		if( res == 1 ) {
			mapdeck_update(map_id = "map") %>%
				add_scatterplot(
					data = capitals
					, lon = "lon"
					, lat = "lat"
					, fill_colour = "country"
					, legend = TRUE
				)
		} else {
			mapdeck_update(map_id = "map") %>%
				clear_scatterplot()
		}
	})

}

shinyApp(ui, server)