Nothing
context("image_x3p")
teardown({
if (file.exists("x3ptest.png")) {
file.remove("x3ptest.png")
}
if (file.exists("x3ptest.svg")) {
file.remove("x3ptest.svg")
}
if (file.exists("x3ptest.stl")) {
file.remove("x3ptest.stl")
}
if (file.exists("x3ptest2.png")) {
file.remove("x3ptest2.png")
}
if (file.exists("x3ptest2.svg")) {
file.remove("x3ptest2.svg")
}
if (file.exists("x3ptest2.stl")) {
file.remove("x3ptest2.stl")
}
})
test_that("image_x3p works as expected", {
expect_error(image_x3p("hello world"), ".x3p. .in. class.*x3p.* is not TRUE")
image_x3p(x3ptest)
rglwindowopen <- rgl::.check3d()
# Check that a window is open
expect_gte(rglwindowopen, 1)
# If open, close it
if (rglwindowopen) {
rgl::rgl.close()
}
x3ptest2 <- x3ptest %>% x3p_add_grid(spaces = 2, size = 1, color = "black")
image_x3p(x3ptest2, file = "x3ptest.png")
expect_true(file.exists("x3ptest.png"))
image_x3p(x3ptest, file = "x3ptest.svg")
expect_true(file.exists("x3ptest.svg"))
image_x3p(x3ptest, file = "x3ptest.stl")
expect_true(file.exists("x3ptest.stl"))
expect_warning(image_x3p(x3ptest, crosscut = 1), "Use of crosscut is deprecated")
rglwindowopen <- rgl::.check3d()
# Check that a window is open
expect_gte(rglwindowopen, 1)
# If open, close it
if (rglwindowopen) {
rgl::rgl.close()
}
# With mask
x3ptestmask <- x3ptest %>%
x3p_add_mask()
x3ptestmask %>% image_x3p()
rglwindowopen <- rgl::.check3d()
# Check that a window is open
expect_gte(rglwindowopen, 1)
# If open, close it
if (rglwindowopen) {
rgl::rgl.close()
}
expect_warning(
image_x3p(x3ptestmask, crosscut = 5),
"(Use of crosscut is deprecated)|(Crosscut does not map to x3p file correctly)",
all = T
)
# Check that a window is open
expect_gte(rglwindowopen, 1)
# If open, close it
if (rglwindowopen) {
rgl::rgl.close()
}
})
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.