tests/testthat/test-gs_create.R

path_to_data <- system.file("extdata", package = "flowHelpers")

test_that("gs_create creates a valid gatingset",{
  expect_s4_class(gs_create(path_to_data,
                            ncdf = FALSE,
                            linearChannels = 6),
                  "GatingSet")
})
NKInstinct/flowHelpers documentation built on March 17, 2023, 1:42 a.m.