这是第一个运行版本。也许 smdy 想出了 sthg "cleaner" :)。
这里有一个小解释:
挑战 1: input$marker 不作为闪亮的输入存在。
打开您的应用程序(在浏览器中),右键单击您感兴趣的标记输入,然后在浏览器中选择“检查元素”或等效标签。您将看到该输入的代码。那为什么你不能访问它。要查看您从闪亮中知道的输入类型的差异,请创建一个textinput
or sthg 并制作“检查元素”。您会看到闪亮的输入有一个 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>
。但这对于普通的香草光泽并不是那么容易。你可以试试window.onload()
或document.ready()
。到目前为止,对我来说最可靠的是使用:session$onFlushed()并触发将该函数中的 JSCode 从 R 发送到“JS”。(然后通过 ; 将该值作为输入发送回 R Shiny.onInputChange("marker", inputs[0].checked)
) --> 这将产生所需的“input$marker”。然而,这个函数只触发一次,这是完全正确的行为。但是当你点击按钮时你不会有更新。
挑战 4:更新 input$marker
漂亮的版本是为.onclicked()
输入提供一个函数/一个侦听器。也许有人可以找到解决方案。我尝试了一个闪亮的解决方法,我告诉闪亮不断地通过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)