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
|
# Autogenerated from contents in the package's R directory, do not edit!
# Run make to update.
function(...) {
## This is the code of the package, put in here by brew
<%
Sys.setlocale("LC_COLLATE","C")
lapply(
sort(list.files("R", full.names = TRUE)),
function(x) {
text <- c(paste0("# Contents of ", x), readLines(x))
cat(paste0(" ", text), sep = "\n")
}
)
%>
## Standalone mode, make sure that we restore the env var on exit
old <- Sys.getenv("R_REMOTES_STANDALONE", NA_character_)
Sys.setenv("R_REMOTES_STANDALONE" = "true")
if (is.na(old)) {
on.exit(Sys.unsetenv("R_REMOTES_STANDALONE"), add = TRUE)
} else {
on.exit(Sys.setenv("R_REMOTES_STANDALONE" = old), add = TRUE)
}
install_github(...)
}
|
