Nothing
source("wrap_examples.R")
context('RcppProgressExample sequential\n')
.test_sequential <- function() {
expect_error(test_sequential(nb = 500), NA)
}
test_that("test_sequential", .test_sequential())
context('RcppProgressExample multithreaded\n')
.test_multithreaded <- function() {
expect_error(test_multithreaded(nb = 1000, threads = 4), NA)
}
test_that("test_multithreaded", .test_multithreaded())
context('RcppProgressArmadillo multithreaded\n')
.amardillo_multithreaded <- function() {
expect_error(amardillo_multithreaded(nb = 1000, threads = 4), NA)
}
test_that("amardillo_multithreaded", .amardillo_multithreaded())
context('RcppProgressETA:custom progress bar\n')
.eta_progress_bar <- function() {
expect_error(eta_progress_bar(nb = 1000), NA)
}
test_that("eta_progress_bar", .eta_progress_bar())
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.