tests/testthat/helpers.R

In upsetjs: 'HTMLWidget' Wrapper of 'UpSet.js' for Exploring Large Set Intersections

#
# @upsetjs/r
# https://github.com/upsetjs/upsetjs_r
#
# Copyright (c) 2021 Samuel Gratzl <sam@sgratzl.com>
#

upsetjs_mock <- function() {
  x <- structure(list(
    sets = c()
  ))

  r <- list(
    x = x,
    package = "upsetjs"
  )
  class(r) <- c(class(r), "upsetjs_common", "upsetjs_upset")
  r
}

expect_set <- function(s, name, cardinality, check.length = TRUE) {
  expect_equal(s$name, name)
  expect_equal(s$cardinality, cardinality)
  if (check.length) {
    expect_equal(length(s$elems), cardinality)
  }
}