tests/testthat/test-cpp.R
context('C++')
library(bondr)
library(magrittr)
source('utils.R')
test_that('Compiles', {
expect_equal(
network_examples() %>%
compile() %>%
class(),
'externalptr'
)
})
context('C++')
library(bondr)
library(magrittr)
source('utils.R')
test_that('Compiles', {
expect_equal(
network_examples() %>%
compile() %>%
class(),
'externalptr'
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
