-
Notifications
You must be signed in to change notification settings - Fork 3
/
_targets.R
60 lines (47 loc) Β· 1.87 KB
/
_targets.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
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
library(targets)
library(tarchetypes)
suppressPackageStartupMessages(library(tidyverse))
class_number <- "PMAP 8441"
base_url <- "https://compasp23.classes.andrewheiss.com/"
page_suffix <- ".html"
options(tidyverse.quiet = TRUE,
dplyr.summarise.inform = FALSE)
tar_option_set(
packages = c("tibble"),
format = "rds",
workspace_on_error = TRUE
)
# here::here() returns an absolute path, which then gets stored in tar_meta and
# becomes computer-specific (i.e. /Users/andrew/Research/blah/thing.Rmd).
# There's no way to get a relative path directly out of here::here(), but
# fs::path_rel() works fine with it (see
# https://github.com/r-lib/here/issues/36#issuecomment-530894167)
here_rel <- function(...) {fs::path_rel(here::here(...))}
# Load functions for the pipeline
source("R/tar_calendar.R")
# THE MAIN PIPELINE ----
list(
## Class schedule calendar ----
tar_target(schedule_file, here_rel("data", "schedule.csv"), format = "file"),
tar_target(schedule_page_data, build_schedule_for_page(schedule_file)),
tar_target(schedule_ical_data, build_ical(schedule_file, base_url,
page_suffix, class_number)),
tar_target(schedule_ical_file,
save_ical(schedule_ical_data,
here_rel("files", "schedule.ics")),
format = "file"),
## Knit the README ----
tar_target(workflow_graph, tar_mermaid(targets_only = TRUE, outdated = FALSE,
legend = FALSE, color = FALSE)),
tar_quarto(readme, here_rel("README.qmd")),
## Build site ----
tar_quarto(site, path = "."),
## Upload site ----
tar_target(deploy_script, here_rel("deploy.sh"), format = "file"),
tar_target(deploy_site, {
# Force dependencies
site
# Run the deploy script
if (Sys.getenv("UPLOAD_WEBSITES") == "TRUE") processx::run(paste0("./", deploy_script))
})
)