R/set_light_theme_12.R

In bkam235/ThemeSwitcher: Quick theme switcher addin for R Studio

#' Change light theme for ThemeSwitcher addin
#'
#' @param theme A valid theme name as a string
#' @return Sets option for themeswitcher.light.
#' @examples
#' \dontrun{
#' set_light_theme("chrome")
#' }

set_light_theme <- function(theme){
  if(theme %in% names(rstudioapi::getThemes()) == FALSE){
    stop("Theme name not valid. Get list of valid themes with: names(rstudioapi::getThemes())")}
  options(themeswitcher.light = theme)
}