r - R Shiny 使用 navbarPage 和 conditionalPanel

Question

R Shiny 是否支持在 navbarPage 中使用 conditionalPanels 来加载 tabPanels，即

 shinyUI(navbarPage(
 collapsable=TRUE,
 title="Clinical Information Network",

 tabPanel("Home",
        fluidRow(
          uiOutput("userPanel")      

)),

conditionalPanel(
condition = "logged.in == T",

tabPanel("DQA",....)
) #End conditional panels
)) #End shiny UI

我已经尝试过了，但它会产生乱码输出。您可以在 41.220.124.237:3838 查看结果。我做对了吗？

Answer 1

在server.R上使用它：

output$secured <- renderUI({
  if(condition){
     tagList()
  }

}) 

在 ui.R 上，只需以这种方式使用标签

uiOutput("secured")