-
Notifications
You must be signed in to change notification settings - Fork 13
/
Create_output_summaries.R
36 lines (23 loc) · 1.2 KB
/
Create_output_summaries.R
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
# Script to knit the various .Rmd files and re-name the corresponding output .html files
# to contain the output version of the corresponding ithim run
# if output_version is not already defined then you need to define it before calling the various .Rmd files
# output_version <- "c28f173d_test_run"
if (!exists("output_version")){
## Get the current repo sha
gitArgs <- c("rev-parse", "--short", "HEAD", ">", file.path("repo_sha"))
# Use shell command for Windows as it's failing with system2 for Windows (giving status 128)
if (.Platform$OS.type == "windows"){
shell(paste(append("git", gitArgs), collapse = " "), wait = T)
} else {
system2("git", gitArgs, wait = T)
}
repo_sha <- as.character(readLines(file.path("repo_sha")))
output_version <- paste0(repo_sha, "_test_run")
}
#output_version <- '5054de5a_orig_nomidpt'
# create summary tables for AP and PA
rmarkdown::render('summary_tables_PA_AP.Rmd', params = list(output_version = output_version))
# create summary tables
rmarkdown::render('summary_tables.Rmd', params = list(output_version = output_version))
# create injury summary tables
rmarkdown::render('injury_tables.Rmd', params = list(output_version = output_version))