tests/testthat/test-electrode_burst_duration.R

In MEAanalysis: Analyse and Visualise Multi Electrode Array Burst Data

test_that("electrode_burst_duration output is a datatable", {
  # Load the dataset
  dataset <- electrode_burst_duration(data = input_MEA_data,
                                                         time_lower_bound = 0,
                                                         time_upper_bound = 30,
                                                         recording_identifier = "burst_recording_1")

  expect_equal(data.table:::is.data.table(dataset), TRUE)
})