_make.R

## Run all files to prepare "Getting Started with Git and GitHub for R Users" workshop
makeStart <- Sys.time()

# Setup
library(here)
here()

# Render the presentation, Base R exercises and data.table exercises & solutions
rmarkdown::render(here("Presentation", "Getting-Started-with-Git-and-GitHub-for-R-Users.Rmd"),
                  clean = TRUE, output_dir = here("Presentation"))

# Create a PDF version of the slides to share
library(webshot)
htmlSlides <- paste0("file://",
                    normalizePath(here("Presentation",
                                       "Getting-Started-with-Git-and-GitHub-for-R-Users.html")))
webshot(htmlSlides, here("Presentation", "Getting-Started-with-Git-and-GitHub-for-R-Users.pdf"),
        vwidth = 960, vheight = 540, zoom = 0.9, cliprect = "viewport")

# Create image of first slide to include as part of README.md
htmlSlide1 <- paste0(htmlSlides, "#1")
webshot(htmlSlide1, here("Presentation", "images", "Git-GitHub-R-Title-Slide.png"),
        delay = 5, vwidth = 640, vheight = 360, zoom = 1.5, cliprect = "viewport")


# Actual time taken to run this file.
makeEnd <- Sys.time()
difftime(makeEnd, makeStart)