🔄 Created local 'scripts/ottr-fy.R' from remote 'scripts/ottr-fy.R'

release-null

scripts/ottr-fy.R

@@ -0,0 +1,67 @@
+#!/usr/bin/env Rscript
+
+# This script downloads all the files and sets up the folders you need to
+# OTTR-fy a repository that has markdown or R Markdown files
+
+system("git checkout -b 'robot/ottr-fy'")
+
+if (!('optparse' %in% installed.packages())) {
+  install.packages("optparse")
+}
+library(optparse)
+library(magrittr)
+
+option_list <- list(
+  optparse::make_option(
+    c("--bookdown"),
+    action = "store_true",
+    help = "Is this a bookdown repository already? If used, means bookdown repo.",
+  )
+)
+
+# Read the arguments passed
+opt_parser <- optparse::OptionParser(option_list = option_list)
+opt <- optparse::parse_args(opt_parser)
+
+# Find .git root directory
+root_dir <- rprojroot::find_root(rprojroot::has_dir(".git"))
+
+base_url <- "https://raw.githubusercontent.com/jhudsl/OTTR_Template/main/"
+
+needed_files <- c(
+  ".github/workflows/pull_request.yml",
+  ".github/workflows/render-all.yml",
+  ".github/workflows/delete-preview.yml",
+  "scripts/git_repo_check.R",
+  "scripts/make_screenshots.R",
+  "_bookdown.yml",
+  "_output.yml",
+  "book.bib",
+  "config_automation.yml",
+  "assets/big-image.html",
+  "assets/footer.html"
+  )
+
+# If this is bookdown, we don't want to copy over the bookdown.yml or output.yml files
+if (opt$bookdown) {
+  needed_files <- setdiff(needed_files,
+  c("_bookdown.yml", "_output.yml", "assets/big-image.html", "assets/footer.html", "book.bib"))
+}
+
+# Set up a file list with the destination locations as the names
+url_to_files <- paste0(base_url, needed_files)
+names(url_to_files) <-  file.path(root_dir, needed_files)
+
+# Download the file in the respective place
+for (index in 1:length(url_to_files)) {
+  dest_folder <- dirname(names(url_to_files)[index])
+  if (!dir.exists(dest_folder)){
+    dir.create(dest_folder, recursive = TRUE)
+  }
+  download.file(url = url_to_files[index], destfile = names(url_to_files)[index])
+}
+
+system("git add .")
+system("git config commit.gpgsign false")
+system("git commit -m 'Add ottr-fying files'")
+system("git push --set-upstream origin robot/ottr-fy")