inst/examples/RcppProgressExample/R/examples.R

test_sequential <- function(max=100, nb=1000, display_progress=TRUE) {
	.Call("test_sequential_wrapper2", max, nb, display_progress, PACKAGE = "RcppProgressExample")
	invisible()
}

test_multithreaded <- function(max=100, nb=1000, threads=0, display_progress=TRUE) {
	.Call("test_multithreaded_wrapper2", max, nb, threads, display_progress, PACKAGE = "RcppProgressExample")
	invisible()
}

Try the RcppProgress package in your browser

Any scripts or data that you put into this service are public.

RcppProgress documentation built on May 2, 2019, 5:17 p.m.