|
|
|
@@ -20,8 +20,11 @@ cli_alert_success('Installing themes to {path {path_home_r(".R", "rstudio", "the |
|
|
|
dir_ls("dist", regexp = "\\.rstheme") %>% |
|
|
|
walk(cp_to_rstudio) |
|
|
|
|
|
|
|
current_theme <- rstudioapi::getThemeInfo()$editor |
|
|
|
if (current_theme %in% list_sassy_themes()) { |
|
|
|
current_theme <- if (rstudioapi::hasFun("getThemeInfo")) { |
|
|
|
rstudioapi::getThemeInfo()$editor |
|
|
|
} else "" |
|
|
|
|
|
|
|
if (current_theme != "" && current_theme %in% list_sassy_themes()) { |
|
|
|
cli_alert_success("Reloading {strong {current_theme}}") |
|
|
|
rstudioapi::applyTheme(current_theme) |
|
|
|
} else { |