inst/templates/_shared/modules/mod_OptionsThemeSwitcherUI.R

In BioPharmSoftGrp/BaSS: PREP - Packages fRom tEmPlates

#' Theme switcher module UI
#'
#' @import dashboardthemes
#'
#' @return UI for theme selector

OptionsThemeSwithcherUI <- function(id="themeswitcher", defaultTheme = "grey_light"){

    # Look in the Themes directory and every file there should contain a theme.
    # This code block will add the new themes.
    vFiles     <- list.files( "inst/themes" )
    vNewThemes <- c()
    iFile      <- 1

    for( iFile in 1:length(vFiles ) )
    {
        source( paste( "inst/themes/",vFiles[ iFile ], sep="") )
        strFileName <- vFiles[ iFile ]
        strFileName <- substr( strFileName, 1, nchar( strFileName ) - 2 ) # Drop the .R
        vNewThemes  <- c( vNewThemes, do.call( strFileName, list() )$ddlItem )
    }


    # Add the existing themes to the list
    changeThemeChoices <- c(
        vNewThemes,
        "Blue gradient"     = "blue_gradient",
        "Flat Red   "       = "flat_red",
        "Grey light"        = "grey_light",
        "Grey dark"         = "grey_dark",
        "OneNote"           = "onenote",
        "Poor man's Flatly" = "poor_mans_flatly",
        "Purple gradient"   = "purple_gradient"    
    )

    #Build the UI components
    ns <- NS(id)
    ddlTheme <- tagList(
        selectizeInput(
            inputId = ns("dbxChangeTheme"),
            label = "Change Theme",
            choices = changeThemeChoices,
            selected = defaultTheme
        )
    )

    retBox   <- box( 
        title  = "Theme Selection", solidHeader = TRUE,
        width  = 4,
        status = "primary",
        "This section allows you to change the color of the application by selecting a theme from below. ",
        ddlTheme 
    )

    return( retBox )
}