R Shiny与conditionalPanel一起使用navbarPage

Question

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

 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

在服务器上使用它.R：

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

}) 

在ui.R上，只需这样使用标签

uiOutput("secured")