仅当使用 LayersControl 缩放级别 > 8 时，才在 Shiny 中显示传单地图中的图层？

Question

我只想在 LayersControl 中单击图层并且缩放级别大于特定数字时才显示该图层，例如8. 原因之一是，必须执行一些昂贵的计算才能获得图层坐标。我想使用图层控件而不是额外的输入按钮（出于光学原因）。

如果在图层控件中单击图层按钮，是否有检索值的方法？

这是一个简单的例子（不工作）：

library(leaflet) 
library(shiny)

ui <- fluidPage(
  leafletOutput("map", width = "100%", height = "700")
)

server <- function(input, output){
  output$map <- renderLeaflet({
    leaflet() %>% addTiles() %>% setView(10.4, 50.3, 7) %>%
      addLayersControl(overlayGroups = c("marker"),
                       options = layersControlOptions(collapsed = FALSE))
  })

  observe({
   # if (input$marker == TRUE){ # how to get value if layercontrol is clicked?
      if (input$map_zoom > 8) {
        leafletProxy("map") %>% addMarkers(lng = 10.5, lat = 50, group = "marker")
      }
  #  }
  })
}

shinyApp(ui = ui, server = server)

Answer 1

这是第一个运行版本。也许 smdy 想出了 sthg "cleaner" :).

这里稍微解释一下：

挑战 1：input$marker 不作为 shiny input 存在。 打开您的应用程序（在浏览器中），右键单击您感兴趣的标记输入和 select "Inspect Element" 或浏览器中的等效标签。您将看到该输入的代码。那你为什么不能访问它。要查看与您从 shiny 知道的输入类型的区别，请创建一个 textinput 或 sthg 并同时创建 "inspect element"。你看到 shiny-inputs 有一个 id，....标记输入没有

挑战2：访问没有id的输入： （从这里开始你应该知道如何从 JS 发送消息到 R 和返回：你会在这里找到一篇非常好的文章：https://ryouready.wordpress.com/2013/11/20/sending-data-from-client-to-server-and-back-using-shiny/）如何访问输入：嗯，基本上就是通过 google 找到正确的片段。最后这个：document.getElementsByTagName("input")。（注意：从这里开始我假设你只有一个输入）并且知道它变得有点棘手。尝试访问这个输入。通过 console.log() 您可以打印到 javascript 控制台（并通过 "F12" --> 控制台 (JS) 在运行应用程序中打开它。）您可以将此输入打印为 HtMLCollection 但无法访问它，这可能会非常混乱。

挑战 3：访问 HTMLCollection

无法访问的原因（简而言之）是在 "DOM" 构建之前调用了 JS 代码。如果在“<body></body>”之后调用脚本，它将完全正常工作。但是对于普通的香草闪亮来说，这并不容易。您可以尝试 window.onload() 或 document.ready()。到目前为止，对我来说最可靠的是使用：session$onFlushed() 并触发将该函数内的 JSCode 从 R 发送到 "JS"。（然后通过 Shiny.onInputChange("marker", inputs[0].checked); 将该值作为输入发送回 R）--> 这将产生所需的 "input$marker"。然而，这个函数只触发一次，这是完全正确的行为。但是当你点击按钮时你不会有更新。

挑战 4：更新输入 $marker 那么漂亮的版本将有一个函数 .onclicked()/ 输入的监听器。也许有人可以找到解决方案。我在 shiny 中尝试了一种解决方法，我告诉 shiny 通过 autoInvalidate() 不断获取输入的值。

挑战 5： 好吧，没那么难，因为它只是闪亮，但为了完整性。鉴于问题中提供的代码，标记将在加载一次时保留。一旦不满足缩放标准，不确定是要保留还是将其删除。不管怎样，如果你想让它消失，%>% clearMarkers()是你的朋友。

library(leaflet)
library(shiny)

getInputwithJS <- '
Shiny.addCustomMessageHandler("findInput",
  function(message) {
  var inputs = document.getElementsByTagName("input");
  Shiny.onInputChange("marker", inputs[0].checked);
}
);
'

ui <- fluidPage(

  leafletOutput("map", width = "100%", height = "700"),
  tags$head(tags$script(HTML(getInputwithJS)))
)

server <- function(input, output, session){
  global <- reactiveValues(DOMRdy = FALSE)
  output$map <- renderLeaflet({
    leaflet() %>% addTiles() %>% setView(10.4, 50.3, 7) %>%
      addLayersControl(overlayGroups = c("marker"),
                       options = layersControlOptions(collapsed = FALSE))
  })

  autoInvalidate <- reactiveTimer(1)

  observe({
    autoInvalidate()
    if(global$DOMRdy){
      session$sendCustomMessage(type = "findInput", message = "")      
    }
  })

  session$onFlushed(function() {
    global$DOMRdy <- TRUE
  })

  observe({
    if (!is.null(input$marker)){
      if (input$marker == TRUE){ # how to get value if layercontrol is clicked?
        if (input$map_zoom > 8) {
          leafletProxy("map") %>% addMarkers(lng = 10.5, lat = 50, group = "marker")
        }else{
          leafletProxy("map") %>% clearMarkers()
        }
      }
    }
  })
}

shinyApp(ui = ui, server = server)

仅当使用 LayersControl 缩放级别 > 8 时，才在 Shiny 中显示传单地图中的图层？

Show layer in leaflet map in Shiny only when zoom level > 8 with LayersControl?

javascript

r

leaflet

shiny

shinyjs