在Shiny中从Navlist面板更改为tabPanel

时间:2017-01-06 11:54:38

标签: shiny shinydashboard

snapshot from Application我有一个闪亮的应用程序,左侧有一个导航列表,我遇到了用户界面文件的问题,我尝试将导航列表更改为tabsets,但下面的代码为所有闪亮的标签都存在,但是我想在这种情况下选择一个特定的侧面标签“Word Network”,并且想要在下面编码的plot1和plot 2只能在这个导航中显示,而不是其他。

navlistPanel(
   tabPanel("Introduction", 
       fluidRow(h3("Introduction",align="center"),tags$img(src="TextAnalytics.jpg",height=300,width=600),align="center"),
        value=11,verbatimTextOutput("introduction")),
        #tags$img(src="TextAnalytics.jpg",height=800,width=800),

        tabPanel("Upload the File",fileInput("data1",label=("Upload the Unstructured Textual data To be analysed"))),
        tabPanel("structure",value=1,verbatimTextOutput("str")),
        tabPanel("data",value=2,tableOutput("data")),
        tabPanel("Summary",value=3,verbatimTextOutput("summary")),
        tabPanel("Word Cloud",value=4,plotOutput("plot",width=1000,height=600)),
        tabPanel("Sentiment Analysis",value=5,plotOutput("plot2",width=1000,height=600)),
        tabPanel("Topic Modelling",value=6,plotOutput("plot3",width=1000,height=600)),
        #tabPanel("Word Frequency",value=7,plotOutput("plot4",width=1000,height=800)),
        tabsetPanel(
          tabPanel("plot1",value = 11),
          tabPanel("plot2",value = 11)
        ),
        tabPanel("Hierarchial Clustering",value=8,plotOutput("graph1",width=1500,height=h)),
        tabPanel("Correlation Analysis",value=9,plotOutput("corelation",width=1000,height=1000)),
        tabPanel("Word Network",value=10,plotOutput("graph2",width=1000,height=600)),
        tabPanel("Community Detection",value=12,plotOutput("democommunity",width=1000,height=600)),
        id="tabselected"
   )
)

0 个答案:

没有答案