条件renderUI和tabPanel

Question

我在server.R中有以下代码，我得到了下面所示的错误。我见过其他examples运行良好，我不知道为什么这不起作用？

   output$mytabs = renderUI({
if(some_condition)
        myTabs = c(tabPanel('Title 1', h4("Tab 1"), htmlOutput("tab_data_1")),
                   tabPanel("Title 2",h4("Tab 2"), verbatimTextOutput("tab_data_2")))
if(some_other_condition)
        myTabs = c(tabPanel('Title 3', h4("Tab 4"), htmlOutput("tab_data_3")),
                   tabPanel("Title 2",h4("Tab 2"), verbatimTextOutput("tab_data_2")))

        do.call(tabsetPanel, myTabs)
# I also tried
# do.call(tabsetPanel, c("tabpanel", myTabs))
      })

Error in `*tmp*`$attribs : $ operator is invalid for atomic vectors

Answer 1

这应该是可行的：

do.call(tabsetPanel, list(myTabs))

或者更简单：

tabsetPanel(myTabs)