在右侧边栏中使用 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)
