if (FALSE) {
# In a Shiny server function:
observeEvent(input$query_button, {
proxy <- maplibre_proxy("map")
query_rendered_features(proxy, layer_id = "counties")
features <- get_queried_features(proxy)
print(nrow(features))
})
}
Run the code above in your browser using DataLab