ソースを参照

Add message about rstudioapi::applyTheme

one
親
コミット
ef218a7a26
1個のファイルの変更、4行の追加、2行の削除
  1. +4
    -2
      make.R

+ 4
- 2
make.R ファイルの表示

} }


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")

読み込み中…
キャンセル
保存