Конвертировать edit_feature в объект sp - PullRequest
1 голос
/ 24 сентября 2019

Рисование многоугольника с использованием буклета 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)
...