isochrone-cookie-cutters.R

library(shiny)
library(mapgl)
library(mapboxapi)
library(tigris)
library(bslib)

tx <- counties("TX", cb = TRUE)

ui <- page_fluid(
  mapboxglOutput("map", height = "90vh")
)

server <- function(input, output, session) {
  output$map <- renderMapboxgl(
    mapboxgl(style = mapbox_style("streets"), bounds = tx) |> 
      add_fill_layer(
        id = "texas",
        source = tx,
        fill_color = "navy",
        fill_opacity = 1
      )
  )
  
  observe({
    req(input$map_click)
    
    coords <- c(input$map_click$lng, input$map_click$lat)
    
    isochrone <- mb_isochrone(location = coords, time = 10)
    
    mapboxgl_proxy("map") |> 
      turf_difference(
        layer_id = "texas",
        data_2 = isochrone,
        source_id = "texas"
      )
    
  }) |> 
    bindEvent(input$map_click)
}

shinyApp(ui, server)