Скрыть боковую панельПанель в R блестящий

Question

У меня блестящее приложение, в котором под одной из вкладок я пытаюсь скрыть боковую панель панели. В идеале, я бы хотел, чтобы я скрывал боковую панель, а график рядом с ней занимал весь экран, а вы просто видите кнопку переключения. Возможно ли это сделать с помощью navbarpage. Это почти как dashboardplus за исключением того, что я не был боковой панелью для всей панели и только для одной вкладки.

ui <- navbarPage("Navbar!",
                 useShinyjs(),
                 tabPanel("Plot",sidebarPanel(actionButton("toggleSidebar", "", icon = icon("arrow-alt-circle-left")),
                          #sidebarLayout(br(),br(),br(),
               div(id ="Sidebar",
                              radioButtons("plotType", "Plot type",
                                           c("Scatter"="p", "Line"="l")
                              )
                            )),
                            mainPanel(
                              plotOutput("plot")
                            )
                          #)
                 ),
                 tabPanel("Summary",
                          verbatimTextOutput("summary")
                 )
)
server <- function(input, output, session) {

  observeEvent(input$toggleSidebar, {
    shinyjs::toggle(id = "Sidebar")
    if(input$toggleSidebar %% 2 == 1){
      updateActionButton(session, "toggleSidebar", icon = icon("arrow-alt-circle-right"))
    }else{
      updateActionButton(session, "toggleSidebar", icon = icon("arrow-alt-circle-left"))
    }
  }, ignoreInit = TRUE)

  output$plot <- renderPlot({
    plot(cars, type=input$plotType)
  })

  output$summary <- renderPrint({
    summary(cars)
  })


}

shinyApp(ui, server)

Кроме того, SidebarPanel и mainPanel, кажется, не выровнены на одной высоте. Основная панель кажется немного ниже по сравнению с sidebarPanel. Как это можно исправить? Спасибо.