Рисование многоугольника с использованием буклета R, как нарисованный объект можно преобразовать в sp
объект?Цель состоит в том, чтобы использовать его для фильтрации пространственных точек.
library(leaflet.extras)
library(sp)
library(geojsonio)
# Define UI
ui <- fluidPage(
useShinyjs(),
leafletOutput("mymap",height=800)
)
# Define server logic
server <- function(input, output) {
output$mymap <- renderLeaflet(
leaflet() %>%
addTiles() %>%
addDrawToolbar()
)
observeEvent(input$mymap_draw_new_feature,{
feature <- input$mymap_draw_new_feature
# convert feature into sp object - this fails
feature_sp <- geojsonio::geojson_sp(feature)
})
}
# Run the application
shinyApp(ui = ui, server = server)