Nothing
library(imager)
library(Rcpp)
cimg.limit.openmp()
test_that("cpp_plugin",{
foo.inline <- "
NumericVector foo(NumericVector inp)
{
CImg<double> img = as<CImg<double> >(inp);
img.blur(3).erode(2);
return wrap(img);
} "
Sys.setenv("R_TESTS" = "") #Workaround for obscure bug in testthat
cppFunction(foo.inline,depends="imager")
im <- grayscale(boats)
expect_equal(im %>% isoblur(3) %>% erode_square(2),foo(im))
})
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.