tests/testthat/test_channel_management.R

In kusumikakd/EEG: A collection of utilities for EEG analysis

context("Test channel management functions")

temp_chans <- import_chans("standard_1005.elc")

expected_names <- c("electrode",
                    "radius",
                    "theta",
                    "phi",
                    "cart_x",
                    "cart_y",
                    "cart_z",
                    "x",
                    "y")
test_that("Import from .elc yields expected file format", {
  expect_equal(expected_names, names(temp_chans))
  cts <- cart_to_spherical(temp_chans[, c("cart_x", "cart_y", "cart_z")])
  expect_s3_class(plot_electrodes(temp_chans), "ggplot")
  }
)