1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# From https://github.com/r-lib/vctrs/blob/a518ead0b08be29beea287d11e17edc1017e16da/R/zzz.R#L3
on_package_load <- function(pkg, expr) {
if (isNamespaceLoaded(pkg)) {
expr
} else {
thunk <- function(...) expr
setHook(packageEvent(pkg, "onLoad"), thunk)
}
}
# We need to set the cpp11 knitr engine when cpp11 is loaded.
.onLoad <- function(libname, pkgname) {
on_package_load("knitr", {
knitr::knit_engines$set(cpp11 = eng_cpp11)
})
}
release_bullets <- function() {
c(
'`Sys.setenv("CPP11_EVAL" = "true"); devtools::submit_cran()`'
)
}
|
