條件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)