Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.