使用 tmap 包和 r shiny 单击将位置添加到交互式 map

我正在创建一个shiny 的应用程序，显示华盛顿州贝灵汉周围公共果树的位置.到目前为止，我已经做到了，所以用户可以输入经度/经度坐标和树类型，并在 map 上绘制位置.最终，我想做它，这样用户就可以点击交互式 map 视图，并添加一个点到 map .我甚至不知道这是否可能，如果可能，如何创建这一功能.我从我的应用程序中添加了一些代码.

library(dplyr)
library(shiny)
library(leaflet)
library(tmap)
library(sf)




dat <- data.frame(lat = c(48.7323,48.7308,
                          48.7301,48.7276,
                         48.7246,48.7323,
                          48.7211),
                  long = c(-122.4928,-122.4940,
                           -122.4942,-122.4939,
                           -122.4958,-122.4975,
                           -122.4946),
                  species = c("Apple", "Apple",
                              "Pear", "Plum",
                              "Fig", "Plum",
                              "Pear"),
                  status = rep("Confirmed",7))



ui <- fluidPage(

  titlePanel("Public Fruit Trees"),

  sidebarLayout(
    sidebarPanel(
      numericInput(inputId = "lat",
                   label = "Latitude DD",
                   value = 48.7211,step = 1e-3),
      numericInput(inputId = "long",
                   label = "Longitude DD",
                   value=-122.4942,step = 1e-3),
      selectInput(inputId = "species", label = "Species",
                  choices = c("Apple","Pear","Fig","Peach","Other")),
      actionButton(inputId = "addObservation",
                   label = "Add tree to database")
    ),
    mainPanel(
      
      tmapOutput(outputId = "tmapMap"),
      
      DT::dataTableOutput("updatedData"),
    )
  )
)

server <- function(input, output, session) {

  
  theData <- reactiveValues()
  theData$dat <- dat

 
  output$tmapMap <- renderTmap({
    dat2plot <- theData$dat
    
    dat2plot <- st_as_sf(dat2plot, coords = c("long","lat"), crs=st_crs("EPSG:4326"))

    map1 <- tm_shape(dat2plot) +
      tm_dots(col= "species", alpha=0.8,size = 0.1) +
      tm_legend(show = TRUE) +
      tm_view(set.zoom.limits = c(14,16))
    map1
  })

  observeEvent(input$addObservation,{
    to_add <- data.frame(lat = input$lat,
                         long = input$long,
                         species = input$species,
                         status = "Uncomfirmed"
    )
    theData$dat <- rbind(theData$dat,to_add) # adding new data
  })

  output$updatedData <- DT::renderDataTable(
    theData$dat
  )

}


shinyApp(ui = ui, server = server)

就像我之前说的，我在想这是否可能.有没有什么功能可以观察 map 上的点击，然后返回经度/经度坐标，允许我将这些添加到数据集中？谢谢!