#7 install script

branch <- "master"
base_url <- glue::glue("https://git.garrickadenbuie.com/garrick/rstudio-scss/raw/branch/{branch}")

source(glue::glue("{base_url}/R/make_functions.R"))

themes <- c(
  "nord-polar-night-aurora", 
  "nord-snow-storm",
  "oceanic-plus", 
  "one-dark",
  "one-light",
  "solarized-dark",
  "solarized-light")

theme_names <- c()

for (theme in themes) {
  url <- glue::glue("{base_url}/dist/{theme}.rstheme")
  tmpfile <- fs::path_temp(fs::path(theme, ext = "rstheme"))
  download.file(url, tmpfile)
  unlink(fs::path_home_r(".r", "rstudio", "themes", fs::path_file(tmpfile)))
  rstudioapi::addTheme(tmpfile)
  theme_names <- c(theme_names, get_theme_name(tmpfile))
}

cat("Use:\n")
cat(glue::glue('- rstudioapi::applyTheme("{theme_names}")'), sep = "\n")

```r branch <- "master" base_url <- glue::glue("https://git.garrickadenbuie.com/garrick/rstudio-scss/raw/branch/{branch}") source(glue::glue("{base_url}/R/make_functions.R")) themes <- c( "nord-polar-night-aurora", "nord-snow-storm", "oceanic-plus", "one-dark", "one-light", "solarized-dark", "solarized-light") theme_names <- c() for (theme in themes) { url <- glue::glue("{base_url}/dist/{theme}.rstheme") tmpfile <- fs::path_temp(fs::path(theme, ext = "rstheme")) download.file(url, tmpfile) unlink(fs::path_home_r(".r", "rstudio", "themes", fs::path_file(tmpfile))) rstudioapi::addTheme(tmpfile) theme_names <- c(theme_names, get_theme_name(tmpfile)) } cat("Use:\n") cat(glue::glue('- rstudioapi::applyTheme("{theme_names}")'), sep = "\n") ```