闪亮的传递输入到反应功能

Question

我想将输入传递给Shiny中的反应函数。基本上这是为了避免必须两次定义一个函数。我想做一些表格：

lUpper1 <- fSelectUpperDist(1)
lUpper2 <- fSelectUpperDist(2)

其中＆＃39; 1＆＃39;和＆＃39; 2＆＃39;对应于输入，并且在表单的反应函数中存在逻辑：

SelectUpperDist <- reactive({
    aSelection <- ifelse(x==1,input$upperDist1,input$upperDist2)
    'Do something'
    return(aResult)
})

有谁知道我该怎么做？

最好，本

Answer 1

您可以尝试使用reactive将lUpper1和lUpper2定义为反应式表达式：

lUpper1 <- reactive({fSelectUpperDist(1)})
lUpper2 <- reactive({fSelectUpperDist(2)})

如果您需要该值，可以拨打lUpper1或lUpper2

aSelection <- ifelse(x==1,lUpper1(),lUpper2())