包括tabbar面板在sidebarPanel中的闪亮

Question

我正在使用包闪亮来创建一个应用程序。我想在我的sidebarPanel中包含一个tabset面板，就像tabsetPanel（）为用户界面中的mainPanel（）做的那样。有谁知道这项工作是否或如何运作？

提前致谢！

Answer 1

mainPanel或sidebarPanel只是 div 标记的包装，这是一种html容器，您可以在其中放置任何其他html有效元素。

例如，您可以这样做：

library(shiny)
ui <- pageWithSidebar(
  # Application title
  headerPanel("Hello Shiny!"),
  # Sidebar with a slider input
  sidebarPanel(
    tabsetPanel(
      tabPanel("Plot", plotOutput("plot")),
      tabPanel("Summary", verbatimTextOutput("summary")),
      tabPanel("Table", tableOutput("table"))
    )),
  # Show a plot of the generated distribution
  mainPanel(
    plotOutput("distPlot")
  )
)

server <- function(input,output){}

runApp(list(ui=ui,server=server))