forked from datacarpentry/R-ecology-lesson
-
Notifications
You must be signed in to change notification settings - Fork 0
/
build_lesson.R
35 lines (31 loc) · 876 Bytes
/
build_lesson.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
library(tic)
BuildLesson <- R6::R6Class(
"BuildLesson", inherit = TicStep,
public = list(
run = function() {
build_status <- system("make all")
if (build_status > 0)
stop("Error during building process")
})
)
build_lesson <- function() {
BuildLesson$new()
}
CheckLinks <- R6::R6Class(
"CheckLinks", inherit = TicStep,
public = list(
run = function() {
res <- checker::check_links("_site",
show_summary = TRUE,
check_external = TRUE,
only_with_issues = FALSE,
ignore_pattern = "site_libs"
)
broken_links <- res[res$tag_type == "a" & (!res$valid & !is.na(res$valid)), ]
if (nrow(broken_links) > 0)
warning("Some links are broken, see summary above.")
})
)
check_links <- function() {
CheckLinks$new()
}