r - TabsetPanel 没有在 Shiny 中填满整个页面

Question

我正在尝试创建一个使用 tabsetPanel 的 Shiny 应用程序，但是当我创建选项卡时，应用程序中的内容不再填充窗口的整个空间，并在输出的右侧和下方留下大的白色间隙。下面是它碰巧的一个非常基本的例子。如果没有选项卡，该应用程序可以作为流畅的页面完美运行，但对于我正在做的工作，我需要将其拆分为多个选项卡。

一个简单的例子:

`library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

# Application title
titlePanel("Old Faithful Geyser Data"),


mainPanel(
 tabsetPanel(
   tabPanel("Test",
# Sidebar with a slider input for number of bins 
sidebarLayout(
  sidebarPanel(
     sliderInput("bins",
                 "Number of bins:",
                 min = 1,
                 max = 50,
                 value = 30)
  ),

  # Show a plot of the generated distribution
  mainPanel(
     plotOutput("distPlot")
  )
 )),
 #Create second tab just for demonstration
 tabPanel("Second Test", h3("Test")
        ))))


# Define server logic required to draw a histogram
server <- function(input, output) {

 output$distPlot <- renderPlot({
  # generate bins based on input$bins from ui.R
  x    <- faithful[, 2] 
  bins <- seq(min(x), max(x), length.out = input$bins + 1)

  # draw the histogram with the specified number of bins
  hist(x, breaks = bins, col = 'darkgray', border = 'white')
 })

 { "example second tab" }
}

# Run the application 
shinyApp(ui = ui, server = server) ` 

我曾尝试摆弄 fillPage 和 fluidPage，但要么将对象移到错误的位置使情况变得更糟，要么什么都没有发生。只有我有这种情况吗？有谁知道它这样做的原因是什么，如果是的话如何解决？

Answer 1

这是一个跨越整个宽度的:

library(shiny)

ui <- fluidPage(
    titlePanel("Title"),
    tabsetPanel(
      tabPanel(
        "Test",
           sidebarLayout(
             sidebarPanel(
               sliderInput("bins", "Number of bins:", min = 1, max = 50, value = 30)
             ),
             mainPanel(
               plotOutput("distPlot")
             )
           )
      ),
      tabPanel("Second Test", h3("Test"))
    )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    x    <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
  { "example second tab" }
}

shinyApp(ui = ui, server = server) 

基本上，您有一个 mainPanel 包裹在 tabsetPanel 周围。没有它，一切看起来都很好。