#' @useDynLib progresstest, .registration = TRUE, .fixes = "c_" NULL #' @export test_baseline <- function() { .Call(c_test0) } #' @export test_modulo <- function(progress = FALSE) { .Call(c_test00, progress) } #' @export test_cli <- function() { .Call(c_test1) } #' @export test_cli_unroll <- function() { this <- "test2" .Call(c_test2) } #' @export testx <- function() { this <- "testx" .Call(c_testx) } test3 <- function() { this <- "test3" test2() } call_with_cleanup <- function(ptr, ...) { .Call(c_cleancall_call, pairlist(ptr, ...), parent.frame()) } testc <- function() { this <- "testc" call_with_cleanup(c_testc) }
Generated by dwww version 1.15 on Wed May 22 08:36:01 CEST 2024.