Nothing
library(loon)
context("test_zeroOneDim_data")
test_that("test_zero_dim_data", {
p <- l_plot()
expect_true(is(p, "l_plot"))
h <- l_hist()
expect_true(is(h, "l_hist"))
g <- l_graph()
expect_true(is(g, "l_graph"))
p3D <- l_plot3D()
expect_true(is(p3D, "l_plot3D"))
s <- l_serialaxes()
expect_true(is(s, "l_serialaxes"))
})
test_that("test_one_dim_data", {
p <- l_plot(1)
expect_true(p['x'] == 1)
h <- l_hist(1)
expect_true(h['x'] == 1)
g <- l_graph(1)
expect_true(g['nodes'] == "1")
p3D <- l_plot3D(1, 1, 1)
expect_true(p3D['x'] == 1)
s <- l_serialaxes(as.data.frame(matrix(1:10, nrow = 1)))
expect_true(all(unlist(s['data']) == as.character(1:10)))
})
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.