R闪亮单选按钮

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() 
     } 
})