Nothing
library(dotCall64)
context("test-local-tests")
test_that("pass-long-int64_t", {
skip_on_cran()
a <- numeric(2^31)
expect_identical(.C64("BENCHMARK",
SIGNATURE = "int64",
a = a,
INTENT = "rw",
NAOK = TRUE,
VERBOSE = 1,
PACKAGE = "dotCall64")$a,
a)
})
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.