我只想在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"clean"：)。
这里有一个小的解释：
挑战1：input$marker不作为闪亮的输入存在打开您的应用程序(在浏览器中)，右键单击您感兴趣的标记输入，然后在浏览器中选择"检查元素"或等效标签。您将看到该输入的代码。那么你为什么不能访问它呢？要查看你从shine中知道的输入类型的区别，请创建一个textinput或sthg，并制作"inspect元素"。你可以看到闪亮的输入有一个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
简而言之，您不能访问它的原因是JS代码是在构建"DOM"之前调用的。如果在"<body></body>"之后调用脚本，它将完全正常工作。但这不是那么容易的普通香草光泽。您可以尝试window.onload()或document.ready()。到目前为止，对我来说最可靠的是使用：session$onFlushed()并触发将该函数中的JSCode从R发送到"JS"。(然后通过Shiny.onInputChange("marker", inputs[0].checked)将该值作为输入发送回R；)-->这将产生所需的"input$marker"。然而，这个功能只启动一次，这是完全正确的行为。但当你点击按钮时，你不会有更新。
挑战4：更新输入$marker好吧，漂亮的版本是为输入提供一个函数.onclicked()/侦听器。也许有人能找到解决办法。我在shine中尝试了一种变通方法，告诉shine通过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)