| } | } | ||||
| cp_to_rstudio <- function(file) { | cp_to_rstudio <- function(file) { | ||||
| cli_alert("{emph {get_theme_name(file)}}") | |||||
| cli_alert("{arg \"{get_theme_name(file)}\"}") | |||||
| file_copy( | file_copy( | ||||
| file, | file, | ||||
| path_home_r(".R", "rstudio", "themes", path_file(file)), | path_home_r(".R", "rstudio", "themes", path_file(file)), | ||||
| cli_alert_info('Installing themes to {path {path_home_r(".R", "rstudio", "themes")}}') | cli_alert_info('Installing themes to {path {path_home_r(".R", "rstudio", "themes")}}') | ||||
| dir_ls("dist", regexp = "\\.rstheme") %>% | dir_ls("dist", regexp = "\\.rstheme") %>% | ||||
| walk(cp_to_rstudio) | |||||
| walk(cp_to_rstudio) | |||||
| cli_alert_info("Use {code {fun rstudioapi::applyTheme}} to enable the above themes") |