Try out screenshot creator as a part of the new Leanpub set up

.github/workflows/render-bookdown.yml

@@ -77,6 +77,10 @@ jobs:
         id: bookdown
         run: Rscript -e "bookdown::render_book('index.Rmd', output_format = 'all')"
 
+      # We want a fresh run of the renders each time
+      - name: Copy over assets
+        run: cp -r assets/ docs/assets/
+
 ##### If you do not wish to host your course on Coursera, you can delete this section #####
       # Run Coursera version
       - name: Run Coursera version of render

.github/workflows/render-leanpub.yml

@@ -21,7 +21,8 @@ jobs:
   render-main:
     runs-on: ubuntu-latest
     container:
-      image: jhudsl/course_template
+      image: jhudsl/leanbuild
+
     # Steps represent a sequence of tasks that will be executed as part of the job
     steps:
       # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
@@ -33,6 +34,13 @@ jobs:
           # use github PAT
           token: ${{ secrets.GH_PAT }}
 
+      # Run leanpub rendering
+      - name: Run the screenshot creation
+        run: |
+          chapt_urls=$(Rscript --vanilla scripts/get_chapter_urls.R \
+            --git_pat ${{ secrets.GH_PAT }} \
+            --repo $GITHUB_REPOSITORY)
+
       # Run leanpub rendering
       - name: Run leanbuild::bookdown_to_leanpub
         run: Rscript -e "leanbuild::bookdown_to_leanpub(make_book_txt = TRUE)"

docker/Dockerfile_leanbuild

@@ -0,0 +1,29 @@
+FROM jhudsl/course_template
+LABEL maintainer="[email protected]"
+
+# Install apt-getable packages to start
+RUN apt-get update && apt-get install -y --no-install-recommends apt-utils dialog
+
+RUN apt-get install -y --no-install-recommends \
+    libxt6 \
+    libpoppler-cpp-dev \
+    vim \
+    libglpk40 \
+    curl \
+    gpg
+
+# Install R
+RUN apt-get update && apt-get install -y r-base curl
+
+# Install R packages
+RUN Rscript -e  "install.packages('curl')"
+
+# Install phantomjs
+RUN apt-get update && apt-get install build-essential chrpath libssl-dev libxft-dev -y \
+  && apt-get install libfontconfig1 libfontconfig1-dev -y \
+  && cd ~ && export PHANTOM_JS="phantomjs-2.1.1-linux-x86_64" \
+  && wget https://github.com/Medium/phantomjs/releases/download/v2.1.1/$PHANTOM_JS.tar.bz2 \
+  && sudo tar xvjf $PHANTOM_JS.tar.bz2 \
+  && sudo mv $PHANTOM_JS /usr/local/share \
+  && sudo ln -sf /usr/local/share/$PHANTOM_JS/bin/phantomjs /usr/local/bin \
+  && phantomjs --version

scripts/get_chapter_urls.R

@@ -0,0 +1,57 @@
+#!/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")
+}
+
+webshot::install_phantomjs()
+
+library(optparse)
+
+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",
+  )
+)
+
+# Read the arguments passed
+opt_parser <- optparse::OptionParser(option_list = option_list)
+opt <- optparse::parse_args(opt_parser)
+
+if (!('cow' %in% installed.packages())) {
+  # remotes::install_github('jhudsl/cow', auth_token = opt$git_pat)
+}
+
+chapt_df <- cow::get_chapters(repo_name = opt$repo,
+                              git_pat = opt$git_pat,
+                              retrieve_keywords = FALSE)
+
+urls <- unique(chapt_df$url)
+
+output_folder <- file.path("manuscript", "chapt_screen_images")
+if (!dir.exists(output_folder)) {
+  dir.create(output_folder, recursive = TRUE)
+}
+
+lapply(urls, function(url) {
+  file_name <- gsub(".png", ".pdf", file.path(output_folder, basename(url)))
+  webshot::webshot(url, file_name)
+  message(paste("Screenshot saved:", file_name))
+})
+
+# Print out download url
+write(urls, stdout())