Nothing
context("regressions")
test_that("No regression on Issue #21", {
dataset <- file.path(system.file(package = "retistruct"), "extdata", "issue21")
a <- expect_warning(retistruct.read.dataset(dataset), "Scale file \"scale.csv\" does not exist. Scale bar will not be set.")
o <- retistruct.read.markup(a)
expect_equal(nrow(o$P), length(a$gf))
r <- ReconstructedOutline$new()
r$loadOutline(o)
## o$triangulate()
## o$stitchTears()
## o$triangulate(suppress.external.steiner=TRUE)
## o$lambda0 <- 0
## o$mergePointsEdges()
## o$projectToSphere()
})
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.