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
97
|
section_init <- function(pkg,
subdir = NULL,
override = list(),
.frame = parent.frame()) {
rstudio_save_all()
pkg <- as_pkgdown(pkg, override = override)
if (length(dest_files(pkg)) > 0) {
check_dest_is_pkgdown(pkg)
} else {
init_site(pkg)
}
if (is.null(subdir)) {
depth <- 0
} else {
depth <- 1
dir_create(path(pkg$dst_path, subdir))
}
local_envvar_pkgdown(pkg, .frame)
local_options_link(pkg, depth = depth, .frame = .frame)
cache_cli_colours(.frame = .frame)
pkg
}
cache_cli_colours <- function(.frame = parent.frame()) {
# https://github.com/r-lib/cli/issues/607
num_col <- getOption("cli.num_colors", default = cli::num_ansi_colors())
withr::local_options(cli.num_colors = num_col, .local_envir = .frame)
}
local_options_link <- function(pkg, depth, .frame = parent.frame()) {
article_index <- article_index(pkg)
Rdname <- get_rdname(pkg$topics)
topic_index <- unlist(invert_index(set_names(pkg$topics$alias, Rdname)))
withr::local_options(
list(
downlit.package = pkg$package,
downlit.article_index = article_index,
downlit.topic_index = topic_index,
downlit.article_path = paste0(up_path(depth), "articles/"),
downlit.topic_path = paste0(up_path(depth), "reference/")
),
.local_envir = .frame
)
}
local_context_eval <- function(
figures = NULL,
src_path = getwd(),
sexpr_env = child_env(globalenv()),
.frame = parent.frame()) {
context_set_scoped("figures", figures, scope = .frame)
context_set_scoped("src_path", src_path, scope = .frame)
context_set_scoped("sexpr_env", sexpr_env, scope = .frame)
}
# Manage current topic index ----------------------------------------------------
context <- new_environment()
context$packages <- character()
context_set <- function(name, value) {
old <- if (env_has(context, name)) env_get(context, name)
if (is.null(value)) {
if (env_has(context, name)) {
env_unbind(context, name)
}
} else {
env_bind(context, !!name := value)
}
invisible(old)
}
context_get <- function(name) {
if (env_has(context, name)) {
env_get(context, name)
} else {
cli::cli_abort("Context {.str name} has not been initialised")
}
}
context_set_scoped <- function(name, value, scope = parent.frame()) {
old <- context_set(name, value)
withr::defer(context_set(name, old), envir = scope)
}
article_index <- function(pkg) {
set_names(
path_rel(pkg$vignettes$file_out, "articles"),
pkg$vignettes$name
)
}
|
