javascript之仅当使用 LayersControl 缩放级别 > 8 时,才在 Shiny 中显示传单 map 中的图层

lhb25 阅读:16 2025-01-19 22:14:33 评论:0

我只想在 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) 

请您参考如下方法:

这是第一个运行的版本。也许 smdy 提出了 sthg “cleaner”:)。

这里有一个小的解释:

挑战 1:input$marker 不作为 shiny input 存在。 打开您的应用程序(在浏览器中),右键单击您感兴趣的标记输入,然后在浏览器中选择“检查元素”或等效标签。您将看到该输入的代码。 那你为什么不能访问它。要查看与您从 shiny 知道的输入类型的区别,请创建一个 textinput或 sthg 并制作“检查元素”。你看到 shiny-inputs 有一个 id,....标记输入没有

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

挑战 3:访问​​ HTMLCollection

您无法访问它的原因(简而言之)是在构建“DOM”之前调用了 JS 代码。如果在“<body></body>”之后调用脚本,它会完全正常工作。但是对于普通的 Vanilla Shiny 来说,这并不容易。你可以试试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: 好吧,没那么难,因为它只是 Shiny ,但为了完整性。鉴于问题中提供的代码,标记将在加载一次时保留。一旦不满足缩放标准,不确定是要保留还是将其删除。 不管怎样,如果你想让它消失,%>% clearMarkers()是你的 friend 。

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) 


标签:JavaScript
声明

1.本站遵循行业规范,任何转载的稿件都会明确标注作者和来源;2.本站的原创文章,请转载时务必注明文章作者和来源,不尊重原创的行为我们将追究责任;3.作者投稿可能会经我们编辑修改或补充。

关注我们

一个IT知识分享的公众号