我在server.R中有以下代码,出现以下错误。我看到了其他运行良好的示例,但我不知道为什么这不起作用?
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
这应该工作:
do.call(tabsetPanel, list(myTabs))
甚至更简单:
tabsetPanel(myTabs)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句