r - 在 sidebarPanel 中包含 tabset 面板

Question

我正在使用 Shiny 的包来创建一个应用程序。我想在我的 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))