tests/testthat/test-simplicial-complex-engines.R

In rrrlw/ggtda: 'ggplot2' Extension to Visualize Topological Persistence

df <- data.frame(
  x = c(1, -1/2, -1/2),
  y = c(0, sqrt(3)/2, - sqrt(3)/2),
  PANEL = structure(c(1L, 1L, 1L), levels = "1", class = "factor"), 
  group = c(-1L, -1L, -1L)
)
es <- cbind(a = c(1, 2, 3), b = c(2, 3, 3))
fs <- cbind(a = 1, c = 3, b = 2)

test_that("`indices_to_data()` performs for vertices", {
  expect_equal(nrow(indices_to_data(df)), 3L)
  expect_equal(nrow(indices_to_data(df, es)), 6L)
  expect_equal(nrow(indices_to_data(df, fs)), 3L)
})