问ShinyDashboard:在默认主题和暗模式之间切换

EN

library(shiny)
library(shinydashboard)
library(dashboardthemes)

# Functions
uiDarkModeCheckBox <- function()
{
    ns <- NS("moduleChangeTheme")
    checkbox <- tagList(
        checkboxInput(
            inputId = ns("dbxChangeTheme"),
            label = "Dark Mode",
            value = FALSE
        )
    )
    
    return(checkbox)
}

uiChangeThemeOutput <- function()
{
    ns <- NS("moduleChangeTheme")
    themeOutput <- tagList(
        uiOutput(ns("uiChangeTheme"))
    )
    
    return(themeOutput)
}

serverChangeTheme <- function(input, output, session)
{
    observeEvent(
        input$dbxChangeTheme, 
        {
            output$uiChangeTheme <- renderUI({
                if (input$dbxChangeTheme == TRUE) {
                    uiChangeThemeOutput()
                    shinyDashboardThemes(theme = "grey_dark")
                }
            })
        }
    )
}

# UI
ui <- dashboardPage(dashboardHeader(),
                    dashboardSidebar(),
                    dashboardBody(
                        uiChangeThemeOutput(),
                            tabItem(tabName = "inputs_tab",
                                    uiDarkModeCheckBox(),
                            )
                    )

)

# SERVER
server <- function(input, output, session) {

    callModule(module = serverChangeTheme, id = "moduleChangeTheme")
}

shinyApp(ui, server)