个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
30
4
我只想在 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 - 仅当使用 LayersControl 缩放级别 > 8 时，才在 Shiny 中显示传单 map 中的图层？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/41666580/
30
4
0
我的Angular-Component位于一个flexbox(id =“log”)中。可以显示或隐藏flexbox。 我的组件内部有一个可滚动区域，用于显示日志消息。 (id =“message-li
我真的很困惑 有一个 phpinfo() 输出: MySQL 支持 启用 客户端 API 版本 5.5.40 MYSQL_MODULE_TYPE 外部 phpMyAdmin 显示: 服务器类型:Mar
我正在研究这个 fiddle : http://jsfiddle.net/cED6c/7/我想让按钮文本在单击时发生变化，我尝试使用以下代码: 但是，它不起作用。我应该如何实现这个？任何帮助都会很棒
我应该在“dogs_cats”中保存表“dogs”和“cats”各自的ID，当看到数据时显示狗和猫的名字。 我有这三个表: CREATE TABLE IF NOT EXISTS cats ( id
我有一个字符串返回到我的 View 之一，如下所示: $text = 'Lorem ipsum dolor ' 我正在尝试用 Blade 显示它: {{$text}} 但是，输出是原始字符串而不是渲染
我无法让我的链接(由图像表示，位于页面左侧)真正有效地显示一个 div(包含一个句子，位于中间)/单击链接时隐藏。 这是我的代码: Practice
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗？更新问题，使其仅关注一个问题 editing this post . 已关闭 4 年前。 Improve this ques
最初我使用 Listview 来显示 oracle 结果，但是最近我不得不切换到 datagridview 来处理比 Listview 允许的更多的结果。然而，自从切换到数据网格后，我得到的结果越来越
我一直在尝试插入一个 Unicode 字符 ∇ 或 ▽，所以它显示在 Apache FOP 生成的 PDF 中。 这是我到目前为止所做的: 根据这个基本帮助 Apache XSL-FO Input，您
我正在使用 node v0.12.7 编写一个 nodeJS 应用程序。 我正在使用 pm2 v0.14.7 运行我的 nodejs 应用程序。 我的应用程序似乎有内存泄漏，因为它从我启动时的大约 1
好的，所以我有一些 jQuery 代码，如果从下拉菜单中选择了带有前缀 Blue 的项目，它会显示一个输入框。 代码: $(function() { $('#text1').hide();
当我试图检查 Chrome 中的 html 元素时，它显示的是 LESS 文件，而 Firefox 显示的是 CSS 文件。 (我正在使用 Bootstrap 框架) 如何在 Chrome 中查看 c
我是 Microsoft Bot Framework 的新手，我正在通过 youtube 视频 https://youtu.be/ynG6Muox81o 学习它并在 Ubuntu 上使用 python
我正在尝试转换从 mssql 生成的文件到 utf-8。当我打开他的输出 mssql在 Windows Server 2003 中使用 notepad++ 将文件识别为 UCS-2LE我使用 file
很难说出这里问的是什么。这个问题是含糊的、模糊的、不完整的、过于宽泛的或修辞性的，无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开它，visit the help center 。 已关
我正在尝试执行单击以打开/关闭一个 div 的功能。 这是基本的，但是，点击只显示 div，当我点击“关闭”时，没有任何反应。 $(".inscricao-email").click(function
假设我有 2 张卡片，屏幕上一次显示一张。我有一个按钮可以用其他卡片替换当前卡片。现在假设卡 1 上有一些数据，卡 2 上有一些数据，我不想破坏它们每个上的数据，或者我不想再次重建它们中的任何一个。
我正在使用 Eloquent Javascript 学习 Javascript。 我在 Firefox 控制台上编写了以下代码，但它返回:“ReferenceError:show() 未定义”为什么？
我正在使用 Symfony2 开发一个 web 项目，我使用 Sonata Admin 作为管理面板，一切正常，但我想要做的是，在 Sonata Admin 的仪表板菜单上，我需要显示隐藏一些菜单取决
我试图显示一个div，具体取决于从下拉列表中选择的内容。例如，如果用户从列表中选择“现金”显示现金div或用户从列表中选择“检查”显示现金div 我整理了样本，但样本不完整，需要接线 http://j
我是一名优秀的程序员,十分优秀！