R shinydashboardPlus - сделать красивое переключение снова

Question

Использование shinydashboardPlus с prettySwitch на правой боковой панели - выравнивание элементов переключателя нарушено

Есть ли способ сделать переключатель довольно снова вот так

Вот код. Настройка md = FALSE будет работать, но повлияет на внешний вид всего остального, поэтому я не хочу этого делать.

library(shinydashboardPlus)
library(shinyWidgets)

ui <- dashboardPagePlus(
  dashboardHeaderPlus(
    enable_rightsidebar = TRUE
  )
  , dashboardSidebar()
  , dashboardBody()
  , rightSidebar(
    background = "light"
    , rightSidebarTabContent(
      id = "id"
      , title = "title"
      , prettySwitch(
        inputId = "switch_id"
        , label = "switch"
      )
    )
  )
  , md = TRUE
)

server <- function(input, output){}

shinyApp(ui, server)

Answer 1

Существует конфликт CSS с темой Material Design, чтобы исправить его, вы можете добавить следующий код CSS в ваше приложение:

  , tags$style(HTML(
    ".pretty > div > label {font-size: 14px !important; line-height: 1px !important;}"
  ))

Выше prettySwitch, например

Answer 2

Даже не элегантный способ, но вы можете настроить его, изменив CSS