19 lines
326 B
R
19 lines
326 B
R
#' @useDynLib testRcppInterfaceUser, .registration = TRUE
|
|
#' @importFrom Rcpp sourceCpp
|
|
NULL
|
|
|
|
flags <- new.env(parent = emptyenv())
|
|
|
|
#' @export
|
|
reset_flags <- function() {
|
|
flags$cpp_interface_downstream <- FALSE
|
|
}
|
|
.onLoad <- function(lib, pkg) {
|
|
reset_flags()
|
|
}
|
|
|
|
#' @export
|
|
peek_flag <- function(name) {
|
|
flags[[name]]
|
|
}
|