1

1. 仅使用bs4Dash包的颜色问题

我开始使用包bs4Dash，我遇到了左侧边栏 bs4Dash::dashboardSidebar() 的背景颜色问题。我观察到，当我启动应用程序时，左侧边栏的背景颜色始终为灰色，但当我切换到深色模式并返回浅色模式时，颜色呈现为白色背景。

您可以使用以下代码观察此行为，该代码取自bs4Dash的帮助网页

library(shiny)
library(bs4Dash)

shinyApp(
    ui = dashboardPage(
        title = "Basic Dashboard",
        header = dashboardHeader(),
        sidebar = dashboardSidebar(),
        controlbar = dashboardControlbar(),
        footer = dashboardFooter(),
        body = dashboardBody()
    ),
    server = function(input, output) {}
)

2.使用fresh和bs4Dash包的颜色问题

第一次打开应用程序时使用包fresh它仍然是灰色背景色，但是当我从暗模式切换到亮时它会根据fresh :: create_theme（）呈现颜色。

这是一个例子

# library

library(shiny)
library(bs4Dash)
library(fresh)

# theme creator with fresh::

mytheme <- create_theme(
    bs4dash_sidebar_light(
        bg = "#FFFF00")
)

#shinyApp

shinyApp(
    ui = dashboardPage(
        title = "Basic Dashboard",
        header = dashboardHeader(),
        sidebar = dashboardSidebar(),
        controlbar = dashboardControlbar(),
        footer = dashboardFooter(),
        body = dashboardBody(use_theme(mytheme)),
        freshTheme = TRUE
    ),
    server = function(input, output) {}
)

我在 Github 中发现了这个问题，但不知道如何解决这个问题。

4

1 回答 1

1

这个问题在这个问题中提到过。skin = "light"您可以通过添加来修复它dashboardSidebar()，如下所示：

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    title = "Basic Dashboard",
    header = dashboardHeader(),
    sidebar = dashboardSidebar(skin = "light"),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    body = dashboardBody()
  ),
  server = function(input, output) {}
)
于 2022-02-10T08:44:57.653 回答