make make executable

make.R

+#! /usr/bin/env Rscript
 library(sass)
 library(fs)
 library(purrr)
     path_ext(output) <- "rstheme"
   }
   output <- path(outdir, output)
-  out_sass <- sass(sass_file(paste(file)))
-  writeLines(out_sass, output)
+  sass(sass_file(paste(file)), output = output)
 }
 
 dir_create("rsthemes")
 
 dir_ls(regexp = "^[^_].+\\.scss") %>%
-  walk(render_sass)
+  walk(render_sass)
+
+cp_to_rstudio <- function(file) {
+  file_copy(
+    file, 
+    path_home_r(".R", "rstudio", "themes", path_file(file)),
+    overwrite = TRUE
+  )
+}
+
+dir_ls("rsthemes", regexp = "\\.rstheme") %>%
+  walk(cp_to_rstudio)