Nothing
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()
}
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.