R/light.R

In felixdidi/fd: My Personal R Functions

# setting the theme to my custom gruvbox light theme

light <- function() {

  # check if theme is already installed
  check <- try(rstudioapi::applyTheme("Gruvbox Light Custom"), silent = TRUE)

  if(class(check) == "try-error") {

    print("The theme is not installed, trying to install the Theme...")

    rstudioapi::addTheme(system.file("themes", "gruvbox_light.rstheme", package = "fd"),
                         apply = TRUE,
                         force = TRUE)

    print("Installed and switched to Felix' custom Gruvbox Light Theme")
  }

  else {
    print("Switched to Felix' custom Gruvbox Light Theme")
  }
}