editMod для изменения геометрии, созданной в прошлом - пакет mapedit r

Question

Я новичок в этом сообществе

Я хотел бы выяснить, как использовать editMod (блестящие модули, присутствующие в пакете mapedit) для редактирования набора многоугольников, которые уже присутствуют в приложении или вызываются из базы данных.

То есть я хотел бы позволить пользователю редактировать полигоны, уже находящиеся в приложении, или удалять их, или добавлять новые.

Я прикреплю код r, который использую. Заранее спасибо всем, кто поможет мне решить эту проблему.

      library(shiny)
library(mapview)
library(mapedit)
library(leafem)
library(leaflet)
library(sf)

ui <- fluidPage(

editModUI("editMod_UI"),
actionButton("save_polygons",
             label="Save the modified polygons"),
mapviewOutput(outputId = "new_polygons")    
)

server <- function(input, output) {    
    franconia<-franconia
    
    edits <- callModule(editMod, 
                        "editMod_UI", 
                        leaflet() %>% addFeatures(franconia))
    
    observeEvent(input$save_polygons, {
        
        polygon<-edits()$finished
        
        polygon<-st_as_sf(polygon)
        
        output$new_polygons<-renderMapview({
            mapview(polygon)
        })        
    })
}

shinyApp(ui = ui, server = server)