tests/testthat/test_relocateVariable.R

In eatGADS: Data Management of Large Hierarchical Data

# dfSAV <- import_spss(file = "tests/testthat/helper_spss_missings.sav")
dfSAV <- import_spss(file = "helper_spss_missings.sav")


test_that("insert variable in different order", {
  out <- relocateVariable(dfSAV, var = "VAR3", after = "VAR1")
  expect_equal(namesGADS(out), c("VAR1", "VAR3", "VAR2"))

  out <- relocateVariable(dfSAV, var = "VAR2", after = "VAR3")
  expect_equal(namesGADS(out), c("VAR1", "VAR3", "VAR2"))

  out <- relocateVariable(dfSAV, var = "VAR1", after = "VAR3")
  expect_equal(namesGADS(out), c("VAR2", "VAR3", "VAR1"))

  out <- relocateVariable(dfSAV, var = "VAR3", after = NULL)
  expect_equal(namesGADS(out), c("VAR3", "VAR1", "VAR2"))
})