|
|
|
|
|
|
|
|
dir_ls("dist", regexp = "\\.rstheme") %>% |
|
|
dir_ls("dist", regexp = "\\.rstheme") %>% |
|
|
walk(cp_to_rstudio) |
|
|
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}}") |
|
|
cli_alert_success("Reloading {strong {current_theme}}") |
|
|
rstudioapi::applyTheme(current_theme) |
|
|
rstudioapi::applyTheme(current_theme) |
|
|
} else { |
|
|
} else { |