Question

我是一个新的R闪亮并在R闪亮中构建应用程序。我想基于out1变量呈现一个包含两个不同输出的表。为此，我写了

output$inputs <- renderDataTable({
    if((input$O1 == 'Max_profit'))
    inpts()
  })
  output$inputs <- renderDataTable({
    if (( inputs$O1 == 'Optimum_profit'))
    inpts1()
  })

当我在UI中按动作按钮时，我在UI中看不到任何输出。它显示未找到的对象输入。

我搜索了互联网但却找不到任何东西。请帮助我。

Answer 1

你有2个同名的div。您要么重命名它们，要么将if语句包装成被动或将所有条件包含在一个表达式中：

output$inputs <- renderDataTable({
        if(is.null(nput$O1)){
                return()
        }
        if(input$O1 == 'Max_profit'){
                inpts()
        }
        if(inputs$O1 == 'Optimum_profit'){
                inpts1()
        }
})

R闪亮的单选按钮

1 个答案: