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
|
#' Use C++ via the cpp11 package
#'
#' Adds infrastructure needed to use the [cpp11](https://cpp11.r-lib.org)
#' package, a header-only R package that helps R package developers handle R
#' objects with C++ code:
#' * Creates `src/`
#' * Adds cpp11 to `DESCRIPTION`
#' * Creates `src/code.cpp`, an initial placeholder `.cpp` file
#'
#' @export
use_cpp11 <- function() {
check_is_package("use_cpp11()")
check_installed("cpp11")
check_uses_roxygen("use_cpp11()")
check_has_package_doc("use_cpp11()")
use_src()
use_dependency("cpp11", "LinkingTo")
use_template(
"code-cpp11.cpp",
path("src", "code.cpp"),
open = is_interactive()
)
check_cpp_register_deps()
invisible()
}
get_cpp_register_deps <- function() {
desc <- desc::desc(package = "cpp11")
desc$get_list("Config/Needs/cpp11/cpp_register")[[1]]
}
check_cpp_register_deps <- function() {
cpp_register_deps <- get_cpp_register_deps()
installed <- map_lgl(cpp_register_deps, is_installed)
if (!all(installed)) {
ui_bullets(c(
"_" = "Now install {.pkg {cpp_register_deps[!installed]}} to use {.pkg cpp11}."
))
}
}
|
