我有一组变量,它们被用作具有匹配函数的html元素的id(方便地命名为varname.helper()),每当在相应的html元素上触发事件时,我希望调用这些变量。
我尝试了以下几种方法:
server <- function(input, output, session) {
observables <- c("foo1", "foo2", "foo3") # they are obviously much more than 3 vars...
observables %>% walk(function(x) {
observeEvent(quo(!!sym(paste0("input$", x))), quo(!!sym(paste0(x, ".helper"))(input)), handler.quoted=TRUE)
}
但它并没有起作用。有什么想法吗?
发布于 2018-05-28 19:30:42
您的问题从这里开始。整洁的评估不是解决这个问题的最佳方法。
observeEvent(quo(!!sym(paste0("input$", x))),
quo(!!sym(paste0(x, ".helper"))(input)), handler.quoted=TRUE)
你想(对吗?)去找input$foo1
和foo1.helper
。使用您的代码,最终结果是这个由quo
、sym
和感叹号组成的集群。
首先,如果所有的辅助变量都做同样的事情,为什么要创建许多单独的变量,称为foo1.helper
?将它们放在列表中会更有意义,这样您就可以使用任何类型的循环/映射来简化您的工作:
helpers <- list(foo1 = whatever..., foo2 = whatever...)
接下来,
quo(!!sym(paste0("input$", x)))
为您提供了一个具有特定用例的相当复杂的对象。最好使用双括号选择,而不是使用$
:
input[[x]]
这使您可以使用字符变量x
根据项目名称从列表中选择项目。这些更容易使用。$
语法非常简单,不能让您轻松地使用字符值。
总结一下:
observeEvent(input[[x]], quote(helpers[[x]](input)), handler.quoted = TRUE)
这里有一个简短的示例,说明如何在您的代码中适应这些内容。注意,这里您必须使用purrr::walk
,因为您不能使用for
循环。for
循环不能很好地与shiny内部注册观察者等的特定方式一起工作。
所以你的代码会变成:
library(shiny)
library(purrr)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
actionButton("foo1", "Foo 1"),
actionButton("foo2", "Foo 2")
),
"Nothing here"
)
)
server <- function(input, output) {
helpers <- list(foo1 = quote(cat("foo 1; ")), foo2 = quote(cat("foo 2; ")))
purrr::walk(c("foo1", "foo2"), ~ observeEvent(input[[.x]],
helpers[[.x]], handler.quoted = TRUE))
}
shinyApp(ui = ui, server = server)
https://stackoverflow.com/questions/50564632
复制相似问题