R-datatable-Intro/_make.R at master · saghirb/R-datatable-Intro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
## Run all files to prepare "Getting Started in R and data.table" workshop

# Setup
library(here)
here()

# Render the presentation, Base R exercises and data.table exercises & solutions
rmarkdown::render(here("Presentation", "R-and-data.table-Workshop.Rmd"),
                  clean = TRUE, output_dir = here("Presentation"))
rmarkdown::render(here("Exercises", "Base-R", "Base-R-Exercises.Rmd"), clean = TRUE,
                  output_dir = here("Exercises", "Base-R"))
rmarkdown::render(here("Exercises", "World-Popn", "World-Population-dt-Exercises.Rmd"),
                  clean = TRUE, output_dir = here("Exercises", "World-Popn"))
rmarkdown::render(here("Exercises", "World-Popn", "World-Population-dt-Solutions.Rmd"),
                  clean = TRUE, output_dir = here("Exercises", "World-Popn"))

# Create solutions for the Base R exercises
knitr::purl(input = here("Exercises", "Base-R", "Base-R-Exercises.Rmd"),
            output = here("Exercises", "Base-R", "Base-R-Solutions.R"),
            documentation = 1L)

# Create a PDF version of the slides to share
library(webshot)
library(xaringan)
htmlSlides <- paste0("file://",
                     normalizePath(here("Presentation", "R-and-data.table-Workshop.html")))
# webshot(htmlSlides, here("Presentation", "R-and-data.table-Workshop.pdf"),
#         vwidth = 960, vheight = 540, zoom = 1.0, cliprect = "viewport")

decktape(
  file = htmlSlides,
  output = here("Presentation", "R-and-data.table-Workshop.pdf"),
  args = "--chrome-arg=--allow-file-access-from-files --size '1280x720'",
  docker = TRUE,
  version = "",
  open = FALSE
)

# Create image of first slide to include as part of README.md
# webshot(htmlSlides, here("Presentation", "images", "R-and-data.table-Title-Slide.png"), delay = 20,
#         vwidth = 640, vheight = 360, zoom = 1.5, cliprect = "viewport")
# decktape(
#   file = htmlSlides,
#   output = here("Presentation", "images", "R-and-data.table-Title-Slide.png"),
#   args = "--chrome-arg=--allow-file-access-from-files --screenshots --slides '1' --size '640x360' --screenshots-format 'png'",
#   docker = TRUE,
#   version = "",
#   open = FALSE
# )


# Create zip files to share with participants
# First empty the share folder and recreate the directory structure.
unlink(here("Share/"), recursive = TRUE)
dir.create(here("Share"))
dir.create(here("Share", "R-Concepts"))
dir.create(here("Share", "Slides-Notes"))
dir.create(here("Share", "World-Popn"))

# Populate the Share directories
file.copy(here("Exercises", "Base-R", "Base-R-Exercises.pdf"),
          here("Share", "R-Concepts"), overwrite = TRUE)

file.copy(here("Presentation", "R-and-data.table-Workshop.html"),
          here("Share", "Slides-Notes"), overwrite = TRUE)

file.copy(here("Presentation", "R-and-data.table-Workshop.pdf"),
          here("Share", "Slides-Notes"), overwrite = TRUE)


download.file("https://github.com/eddelbuettel/gsir-te/raw/master/Getting-Started-in-R.pdf",
              here("Share", "Slides-Notes", "Getting-Started-in-R.pdf"))

file.copy(here("Exercises", "World-Popn", "World-Population-dt-Exercises.Rmd"),
          here("Share", "World-Popn"), overwrite = TRUE)

file.copy(here("Exercises", "World-Popn", "World-Population.csv"),
          here("Share", "World-Popn"), overwrite = TRUE)

file.copy(here("Exercises", "World-Popn", "World-Population-Data-Info.txt"),
          here("Share", "World-Popn"), overwrite = TRUE)

# Creating (initialising) an RStudio project
rstudioapi::initializeProject(path = here("Share", "World-Popn"))
file.rename(here("Share", "World-Popn", "World-Popn.Rproj"),
          here("Share", "World-Popn", "World-Popn-dt.Rproj"))

# Using here() function with zip results in full paths in the zip files :(
# Not beautiful: Using setwd to overcome the full paths issue above.
setwd(here())
zip(here("Share", "GSiRdt.zip"), "./Share/", extras = "-FS")

setwd(here("Exercises", "World-Popn"))
zip(here("Share", "World-Popn-dt-Solutions.zip"), "World-Population-dt-Solutions.html",
    extras = "-FS")
setwd(here())