library(sass)
library(fs)
library(purrr)

render_sass <- function(file, output = NULL, outdir = "rsthemes") {
  if (is.null(output)) {
    output <- file
    path_ext(output) <- "rstheme"
  }
  output <- path(outdir, output)
  out_sass <- sass(sass_file(paste(file)))
  writeLines(out_sass, output)
}

dir_create("rsthemes")

dir_ls(regexp = "^[^_].+\\.scss") %>%
  walk(render_sass)