tests/testthat/test-preferred-pole.R

In OpenRepGrid: Tools to Analyze Repertory Grid Data

test_that("preferredPoles", {
  x <- boeker
  nc <- nrow(x)

  preferredPoles(x) <- "left"
  expect_equal(preferredPoles(x), rep_len("left", nc))

  xr <- reverse(x)
  expect_equal(preferredPoles(xr), rep_len("right", nc))

  preferredPoles(x) <- "none"
  expect_equal(preferredPoles(x), rep_len("none", nc))

  preferredPoles(x) <- "both"
  expect_equal(preferredPoles(x), rep_len("both", nc))

  preferredPoles(x) <- NA
  expect_equal(preferredPoles(x), rep_len(NA_character_, nc))
})