Как отключить панель управления панелью управления Shiny bs4Dash (правая боковая панель)

#r #shiny #dashboard #bs4dash

#r #блестящий #Информационная панель #bs4dash

Вопрос:

Какой параметр используется для управления правой боковой панелью на блестящей панели управления bs4Dash. Мое чтение функции dashboardControlbar в https://rinterface.github.io/bs4Dash/articles/step-by-step.html , который, как я понимаю, является боковой панелью справа от страницы, должен быть установлен disable = T аналогично тому, как dashboardSidebar(disable = T) управляет боковой панелью внешнего вида слева.

controlbar = dashboardControlbar(disable = T) Однако я установил приложение Shiny ниже, и правая боковая панель по-прежнему открывается при нажатии кнопки вверху. Заранее спасибо за любые предложения.

Редактировать (в ответ на комментарий dashboardHeader): этот вопрос относится к версии bs4Dash V2.0.0, доступной через github. https://github.com/RinteRface/bs4Dash Пожалуйста, обратите внимание, что на странице github также рекомендуются версии htmltools и shiny для github.

 library(shiny)
library(bs4Dash)


ui = dashboardPage(
  header = dashboardHeader(),
  sidebar = dashboardSidebar(
    disable = T
    ),
  body = dashboardBody(),
  controlbar = dashboardControlbar(
    disable = T
  ),
  title = ""
)

server <- function(input, output, session) {}
shinyApp(ui, server)

1. После запуска вашего кода я получаю unused argument (header = dashboardHeader()) . Из какого пакета вы используете dashboardPage функцию? Я не вижу header аргумента в bs4Dash::dashboardPage

2. Я предполагаю, что неиспользуемый аргумент вызван тем, что я использую bs4Dash версии V2.0.0. Я обновил вопрос. Спасибо

Ответ №1:

Вы можете удалить аргумент панели управления, чтобы отключить его.

 library(shiny)
library(bs4Dash)


ui = dashboardPage(
  header = dashboardHeader(),
  sidebar = dashboardSidebar(
    disable = T
  ),
  body = dashboardBody(),
  title = ""
)

server <- function(input, output, session) {}
shinyApp(ui, server)