tar_test("visnetwork$update_network()", {
skip_cran()
skip_if_not_installed("visNetwork")
envir <- new.env(parent = baseenv())
envir$a <- 1L
tar_option_set(envir = envir)
x <- target_init("x", quote(a))
pipeline <- pipeline_init(list(x))
local_init(pipeline)$run()
x <- target_init("x", quote(a))
pipeline <- pipeline_init(list(x))
net <- inspection_init(pipeline)
vis <- visnetwork_init(network = net)
vis$update_network()
vertices <- vis$network$vertices
vertices <- vertices[order(vertices$name), ]
rownames(vertices) <- NULL
exp <- data_frame(
name = c("a", "x"),
type = c("object", "stem"),
status = rep("uptodate", 2L)
)
exp <- exp[order(exp$name), ]
rownames(exp) <- NULL
expect_equal(vertices[, colnames(exp)], exp)
edges <- vis$network$edges
exp <- data_frame(from = "a", to = "x")
rownames(edges) <- NULL
rownames(exp) <- NULL
expect_equal(edges, exp)
})
tar_test("visnetwork$update_positions()", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_order(), exclude = "x")
vis <- visnetwork_init(network = net)
vis$update_network()
vis$update_positions()
vertices <- vis$network$vertices
vertices <- vertices[order(vertices$level), ]
expect_equal(vertices$level[grepl("data", vertices$name)], c(1L, 1L))
expect_equal(
vertices$level[grepl("max[0-9]|min[0-9]", vertices$name)],
rep(2L, 4L)
)
expect_equal(
vertices$level[grepl("max[0-9]|min[0-9]", vertices$name)],
rep(2L, 4L)
)
expect_equal(
vertices$level[grepl("maxes|mins", vertices$name)],
rep(3L, 2L)
)
expect_equal(vertices$level[vertices$name == "all"], 4L)
})
tar_test("visnetwork$update_labels()", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_order())
vis <- visnetwork_init(network = net)
vis$update_network()
vis$update_labels()
vertices <- vis$network$vertices
expect_true(is.character(vertices$name))
expect_true(is.character(vertices$label))
expect_equal(vertices$name, vertices$label)
})
tar_test("visnetwork$update_colors()", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_order())
vis <- visnetwork_init(network = net)
vis$update_network()
vis$update_colors()
vertices <- vis$network$vertices
expect_true("color" %in% colnames(vertices))
})
tar_test("visnetwork$update_colors() on cross plan", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_cross())
vis <- visnetwork_init(network = net)
vis$update_network()
vis$update_shapes()
vertices <- vis$network$vertices
expect_true("shape" %in% colnames(vertices))
expect_equal(vertices$shape[vertices$name == "data1"], "dot")
expect_equal(vertices$shape[vertices$name == "map1"], "square")
expect_equal(vertices$shape[vertices$name == "cross1"], "square")
})
tar_test("visnetwork$update_legend() on cross plan", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_cross())
vis <- visnetwork_init(network = net)
vis$update_network()
vis$update_colors()
vis$update_shapes()
vis$update_legend()
expect_silent(vis$validate())
legend <- vis$legend
exp <- data_frame(
label = c("Stem", "Pattern"),
color = c("#899DA4", "#899DA4"),
shape = c("dot", "square"),
font.size = rep(20L, 2L)
)
cols <- colnames(legend)
legend <- legend[order(legend$label), cols]
exp <- exp[order(exp$label), cols]
expect_equiv(legend, exp)
})
tar_test("visnetwork$update() on cross pipeline", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_cross())
vis <- visnetwork_init(network = net)
vis$update()
expect_silent(vis$validate())
visnetwork <- vis$visual
expect_equal(class(visnetwork)[1], "visNetwork")
})
tar_test("visnetwork$update() on empty pipeline", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_init())
vis <- visnetwork_init(network = net)
vis$update()
expect_silent(vis$validate())
visnetwork <- vis$visual
expect_equal(class(visnetwork)[1], "visNetwork")
})
tar_test("visnetwork$update() on edgeless pipeline", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_init(list(target_init("x", quote(1)))))
vis <- visnetwork_init(network = net)
vis$update()
expect_silent(vis$validate())
visnetwork <- vis$visual
expect_equal(class(visnetwork)[1], "visNetwork")
})
tar_test("visnetwork$validate() with no allow or exclude", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_init())
vis <- visnetwork_init(network = net)
expect_silent(vis$validate())
})
tar_test("visnetwork$validate() with allow and exclude", {
skip_cran()
skip_if_not_installed("visNetwork")
net <- glimpse_init(pipeline_init(), allow = "x", exclude = "y")
vis <- visnetwork_init(network = net)
expect_silent(vis$validate())
})
tar_test("visnetwork$validate() with label", {
skip_cran()
skip_if_not_installed("visNetwork")
pipeline <- pipeline_map()
local_init(pipeline = pipeline, reporter = "silent")$run()
net <- inspection_init(pipeline_map())
vis <- visnetwork_init(network = net, label = c("time", "size", "branches"))
vis$update()
expect_true(inherits(vis$visual, "visNetwork"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.