Nothing
context("Basic test")
test_that("test of the basic functionality", {
skip_on_cran()
julia <- julia_setup(installJulia = TRUE)
expect_equal(julia_eval("sqrt(2)"), sqrt(2))
expect_equal(julia_call("sqrt", 2), sqrt(2))
expect_equal(julia_eval("sqrt")(2), sqrt(2))
expect_equal({julia_command("a = sqrt(2)"); julia_eval("a")}, sqrt(2))
expect_true(julia_exists("sqrt"))
expect_output(julia_help("sqrt"))
expect_equal({julia_assign("x", sqrt(2)); julia_eval("x")}, sqrt(2))
expect_equal({julia_assign("rsqrt", sqrt); julia_eval("rsqrt(2)")}, sqrt(2))
expect_equal(julia_call("sqrt.", c(1:10)), sqrt(c(1:10)))
expect_equal(julia_call("log.", c(1:10)), log(c(1:10)))
})
test_that("test of white space stripping for string command", {
skip_on_cran()
julia <- julia_setup(installJulia = TRUE)
expect_equal({julia_command("b = sqrt(2)
"); julia_eval("b
")}, sqrt(2))
})
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.