From 9f95511cf74758674b1a3f83a0745dfaf03dae35 Mon Sep 17 00:00:00 2001
From: Candace Savonen <cansav09@gmail.com>
Date: Wed, 11 Dec 2024 12:40:06 -0500
Subject: [PATCH] Delete make_screenshots.R (#788)

* Delete make_screenshots.R

* rm make_screenshots.R
---
 .github/workflows/render-all.yml |  1 +
 make_screenshots.R               | 87 --------------------------------
 2 files changed, 1 insertion(+), 87 deletions(-)
 delete mode 100644 make_screenshots.R

diff --git a/.github/workflows/render-all.yml b/.github/workflows/render-all.yml
index 55ede15b..56dffb71 100644
--- a/.github/workflows/render-all.yml
+++ b/.github/workflows/render-all.yml
@@ -189,6 +189,7 @@ jobs:
             --git_pat ${{ secrets.GH_PAT }} \
             --repo $GITHUB_REPOSITORY \
             --output_dir resources/chapt_screen_images)
+          rm make_screenshots.R
 
       # We want a fresh run of the renders each time
       - name: Delete manuscript/
diff --git a/make_screenshots.R b/make_screenshots.R
deleted file mode 100644
index 1555e486..00000000
--- a/make_screenshots.R
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/env Rscript
-# Written by Candace Savonen Jan 2022
-
-if (!('devtools' %in% installed.packages())) {
-  # install.packages("remotes", repos = "http://cran.us.r-project.org")
-}
-
-if (!('optparse' %in% installed.packages())) {
-  # install.packages("optparse", repos = "http://cran.us.r-project.org")
-}
-
-# Find .git root directory
-root_dir <- rprojroot::find_root(rprojroot::has_dir(".git"))
-
-
-Sys.setenv("CHROMOTE_CHROME" = "/usr/bin/vivaldi")
-
-library(optparse)
-library(magrittr)
-
-option_list <- list(
-  optparse::make_option(
-    c("--repo"),
-    type = "character",
-    default = NULL,
-    help = "GitHub repository name, e.g. jhudsl/OTTR_Template",
-  ),
-  optparse::make_option(
-    c("--git_pat"),
-    type = "character",
-    default = NULL,
-    help = "GitHub personal access token",
-  ),
-  optparse::make_option(
-    c("--output_dir"),
-    type = "character",
-    default = "resources/chapt_screen_images",
-    help = "Output directory where the chapter's screen images should be stored",
-  ),
-  optparse::make_option(
-    c("--base_url"),
-    type = "character",
-    default = NULL,
-    help = "Output directory where the chapter's screen images should be stored",
-  )
-)
-
-# Read the arguments passed
-opt_parser <- optparse::OptionParser(option_list = option_list)
-opt <- optparse::parse_args(opt_parser)
-
-output_folder <- file.path(opt$output_dir)
-if (!dir.exists(output_folder)) {
-  dir.create(output_folder, recursive = TRUE)
-}
-
-if (is.null(opt$base_url)) {
-  base_url <- cow::get_pages_url(repo_name = opt$repo, git_pat = opt$git_pat)
-  base_url <- gsub("/$", "", base_url)
-}
-
-# Collect all the chapter pages for the url given
-chapt_df <- ottrpal::get_chapters(html_page =  file.path(root_dir, "docs", "index.html"),
-                         base_url = base_url)
-
-# Now take screenshots for each
-file_names <- lapply(chapt_df$url, function(url) {
-  file_name <- gsub(".html", ".png", file.path(output_folder, basename(url)))
-
-  # Get rid of special characters because leanpub no like
-  file_name <- gsub(":|?|!|\\'", "", file_name)
-
-  # Take the screenshot
-  webshot2::webshot(url, file = file_name)
-
-  return(file_name)
-
-})
-
-# Save file of chapter urls and file_names
-chapt_df <- chapt_df %>%
-  dplyr::mutate(img_path = unlist(file_names))
-
-chapt_df %>%
-  readr::write_tsv(file.path(output_folder, "chapter_urls.tsv"))
-
-message(paste("Image Chapter key written to: ", file.path(output_folder, "chapter_urls.tsv")))