【问题标题】：How to save each click that the user gives on the map and access them individually? Shiny Leaflet R如何保存用户在地图上的每次点击并单独访问它们？闪亮的传单 R
【发布时间】：2020-05-15 17:18:55
【问题描述】：

library(shiny)
library(leaflet)
library(leaflet.providers)
ui <- fluidPage(
  leafletOutput('map',width = "1331",height = "400"))
  
server <- function(input, output, session){
  output$map <- renderLeaflet({
    m<-leaflet() %>%
      addProviderTiles(providers$OpenStreetMap,
                       options = providerTileOptions(noWrap = TRUE))%>%
      setView(lng =-73.935242, lat =40.730610, zoom= 12)})
  
  
  observe({  click = input$map_click
  if(is.null(click))
    return()
  else
    clicks=data.frame(click[1:2])
  leafletProxy("map") %>%
    addMarkers(data = clicks) #Adds a marker on each click

    
  clicklist <<- reactiveVal(list()) # empty list
  observeEvent(input$map_click, {
    click <- input$map_click
    temp <<- clicklist() # get the list of past clicks 
    temp[[length(temp)+1]] <<- click[1:2] # add this click to the list
    clicklist(temp)
    print(clicklist)})  #show on the console  lat and lng

  })
    }
shinyApp(ui = ui, server = server)

一张吸引你注意力的图片

控制台：

reactiveVal: [1] "40.74778, -73.97953" 
reactiveVal: [1] "40.73191, -73.99704" 
reactiveVal: [1] "40.73191, -73.99704" "40.73191, -73.99704"

上面的代码仅将用户最后一次点击地图保存在“clicklist”对象中，并在用户点击地图时重复多次。

>clicklist
reactiveVal: [1] "40.72931, -73.99326" "40.72931, -73.99326" "40.72931, -73.99326"

对象类是反应值。

> class(clicklist)
[1] "reactiveVal" "reactive"

如何保存每次点击并单独访问它们？

预期输出

>clicklist
[[1]]
[1]40.74778 -73.97953
[[2]]
[1]40.73191 -73.99704 

>clicklist[1]
[1] 40.74778, -73.97953

>clicklist[1][[1]][1]
[1] 40.74778

>clicklist[1][[1]][2]
-73.97953

>clicklist[2]
[[1]]
[1]  40.73191 -73.99704

>clicklist[2][[1]][1]
[1] 40.73191

> clicklist[2][[1]][2]
[1] -73.99704

【问题讨论】：

在将新输入添加到列表时尝试unlist。另外，在print 中使用clicklist()（带括号）而不是clicklist。

标签： r shiny leaflet

【解决方案1】：

以下代码给出了预期的输出，您的预期输出是一个向量列表，但input$map_click 给出了一个列表，确切地说是一个命名列表。要将其转换为向量，我们使用unlist，因为您想要的输出在向量中也没有名称，我们使用unname 删除名称。此外，如果您的代码由于某些输入不可用而导致应用程序初始化中断，请使用req 让观察者等待该输入。这是处理此类行为的推荐方法之一。 << 不建议在闪亮的应用程序中使用，并且要非常小心地使用。在您的代码中，它实际上是多余的。

library(shiny)
library(leaflet)
library(leaflet.providers)
ui <- fluidPage(
  leafletOutput('map',width = "1331",height = "400"))

server <- function(input, output, session){
  output$map <- renderLeaflet({
    m <-leaflet() %>%
      addProviderTiles(providers$OpenStreetMap,
                       options = providerTileOptions(noWrap = TRUE))%>%
      setView(lng =-73.935242, lat =40.730610, zoom= 12)})


  observe({
    req(input$map_click)
    clicks <- data.frame(input$map_click[1:2])
    leafletProxy("map") %>%
      addMarkers(data = clicks) #Adds a marker on each click
  })

  clicklist <- reactiveVal(list()) # empty list

  observeEvent(input$map_click, {
    click <- input$map_click
    temp <- clicklist() # get the list of past clicks 
    temp[[length(temp)+1]] <- unname(unlist(click[1:2])) # add this click to the list
    clicklist(temp)
    print(clicklist())
  })  #show on the console  lat and lng
}

shinyApp(ui = ui, server = server)

【讨论】：