反应性编程多个动作按钮相同的值呈现问题
反应性编程多个动作按钮相同的值呈现问题
提问于 2017-01-10 00:29:27
我有4个动作buttons...but想要相同的返回值名称。因为它被用于其他元素中。我将反应性元素初始化为
myReactiveDF <- reactiveValues(data=NULL)
myReactiveDF <- eventReactive(input$action1, {
call functions
return(dataframe)
})
myReactiveDF <- eventReactive(input$action2, {
call functions
return(dataframe)
})
.....然而，只有最后一个按钮4工作。前三位没有。所有其他元素都使用相同的反应性元素(dataframe)来填充。我尝试过observeEvent，但它不返回值。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-01-10 03:14:39
根据我的理解，下面的代码应该满足您的需求：
library(shiny)
ui <- fluidPage(
fluidRow(column(2, selectInput('action1', label = "Action1:", choices = c('a','b') )),
column(4, selectInput('action2', label = "Action2:", choices = c('A','B') ))),
fluidRow( verbatimTextOutput("outputs"))
)
server = function(input, output, session){
v <- reactiveValues(data = NULL)
observeEvent(input$action1, {
v$data <- input$action1
})
observeEvent(input$action2, {
v$data <- input$action2
})
output$outputs <- renderText({
if (is.null(v$data)) return()
v$data
})
}
shinyApp(ui = ui, server = server)如果您需要的是不同的，请让我知道，以便我可以修改答案。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/41564335
复制相关文章
相似问题
腾讯云开发者
