tests/testthat/test_getShapes.R

testthat::test_that("Test getShapes", {
  nodes <- getNodes(head(mtcars[,c("cyl", "gear")]), group = TRUE)
  res <- getShapes(nodes)
  testthat::expect_true(length(res) == 5)
})

Try the netknitr package in your browser

Any scripts or data that you put into this service are public.

netknitr documentation built on April 3, 2025, 5:47 p.m.