Как отобразить два графика на главной панели в однофайловом блестящем приложении?

Question

Я довольно новичок в Shiny R, и я пытался создать Shiny App с одним файлом, используя встроенный «точный» набор данных / данных. Все, что я хочу сделать, это создать два графика, отображаемых на одной главной панели рядом друг с другом, каждый из которых управляется собственной отдельной ползунком.

library(shiny)
library(ggplot2)

ui <- fluidPage(


 titlePanel("Old Faithful Geyser Data"),

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

  sliderInput("bins2",
              "Number of bins:",
              min = 1,
              max = 10,
              value = 5)
  ),



  mainPanel(
    tabsetPanel(
      tabPanel("PLOT",
               fluidRow(
                 column(6, plotOutput("distPlot")),
                 column(6, plotOutput("distPlot2"))

    )
   # splitLayout Alternative
   # fluidRow(
   #   splitLayout(plotOutput("distPlot"), plotOutput("distPlot2"))
   # )

 )
   )
 )
 )
 )


   server <- function(input, output, session) {
   x    <- faithful[, 2] 
   y    <- faithful[, 1]

   output$distPlot <- renderPlot({ 

  binsOut1 <- seq(min(x), max(x), length.out = input$bins1 + 1)
  hist(x, breaks = binsOut1, col = 'darkgray', border = 'white')

   })

 output$distplot2 <- renderPlot({

 binsOut2 <- seq(min(y), max(y), length.out = input$bins2 + 1)
 hist(y, breaks = binsOut2, col= 'blue', border= 'black')

   })

  session$onSessionEnded({
  print("Stop!")
  stopApp   
    }) 
         }



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

Однако, хотя я могу заставить один график отображаться на главной панели, другой не отображается независимо от того, что я делаю. Не выдает никаких ошибок; он просто не отображается с пустым пространством, где должен был находиться второй сюжет. Я пробовал и liquidrow, и splitlayout, но у обоих будет одна и та же проблема невозможности отобразить второй график. Я использую R Studio, версия "Single Candle". Пожалуйста помоги!