r - 使用 purrr::pwalk 从 tibble 创建多个闪亮的 observeEvents
问题描述
我想做的事
我想遍历一个小标题并创建多个观察事件。我在下面有一个可重现的例子。注释掉的代码有效,但我想用 pwalk 以编程方式创建 observeEvents。
基本上我正在尝试完成与这篇文章类似的事情:使用 purrr::walk to instate multiple event observers。(虽然目标不同。我的目标是在更改一个 selectInput 时跨选项卡更新 selectInputs。)
代表
library(shiny)
library(purrr)
library(tibble)
choices1 <- c('A', 'B', 'C', 'D')
choices2 <- c('E', 'F', 'G', 'H')
dat_inputs <- tribble(
~ observe_input, ~ input_id,
'tab11', 'tab21',
'tab11', 'tab31',
'tab21', 'tab11',
'tab21', 'tab31',
'tab31', 'tab11',
'tab31', 'tab21'
)
ui <- navbarPage(
title = 'Test Navbar Page',
tabPanel(
title = 'Tab 1',
selectInput('tab11', 'Tab 11', choices = choices1
),
selectInput('tab12', 'Tab 12', choices = choices2
)
),
tabPanel(
title = 'Tab 2',
selectInput('tab21', 'Tab 22', choices = choices1
),
selectInput('tab12', 'Tab 12', choices = choices2
)
),
tabPanel(
title = 'Tab 3',
selectInput('tab31', 'Tab 31', choices = choices1
),
selectInput('tab32', 'Tab 32', choices = choices2
)
)
)
server <- function(input, output, session) {
# observeEvent(input$tab11, {
# updateSelectInput(inputId = 'tab21', selected = input$tab11)
# updateSelectInput(inputId = 'tab31', selected = input$tab11)
# })
#
# observeEvent(input$tab21, {
# updateSelectInput(inputId = 'tab11', selected = input$tab21)
# updateSelectInput(inputId = 'tab31', selected = input$tab21)
# })
#
# observeEvent(input$tab31, {
# updateSelectInput(inputId = 'tab11', selected = input$tab31)
# updateSelectInput(inputId = 'tab21', selected = input$tab31)
# })
# edit - commenting out the old code so that the solution takes its place
# this code does not work
# if you delete handler.quoted = TRUE the shiny app runs but the
# observeEvents don't work
# pwalk(
# dat_inputs,
# ~ observeEvent(
# input[[.x]],
# updateSelectInput(inputId = input[[.y]], selected = input[[.x]]),
# handler.quoted = TRUE
# )
# )
################################
# solution from accepted answer:
################################
pwalk(
dat_inputs,
~ observeEvent(
input[[.x]],
updateSelectInput(inputId = .y, selected = input[[.x]],
session = session)
)
)
}
shinyApp(ui, server)
解决方案
好吧,您正在使用三件事,input=input[[.y]]
而不仅仅是input=.y
;当您使用这样的表达式时,它实际上没有被引用;你需要传递session=
. 尝试
pwalk(
dat_inputs,
~ observeEvent(
input[[.x]],
updateSelectInput(inputId = .y, selected = input[[.x]], session=session)
)
)
推荐阅读
- toit - 我可以重载 Toit 中的 + 运算符吗?
- node.js - 如果我像这样使用 Promise.all 制作文档,我会达到每个数据库每秒的最大写入数吗?
- reactjs - 当多个斜线路径并显示 Uncaught SyntaxError: Unexpected token '<' 时,React Router 呈现空白页面
- c# - 尝试使用 SkiaSharp 库时抛出 System.DllNotFoundException(表示不可用的“libSkiaSharp.so”)
- python - pandas/dask csv 多行读取
- azure - 如果我们在包含两个虚拟机的规模集中选择可用区选项,则虚拟机的总数
- behance-api - Behance API 不允许我创建 API 密钥
- java - 从十进制数列表中获取 arraylist 中的父值
- php - 如何在 laravel eloquent 中使用 where() 和数组
- python - 自动化 Instagram 点赞