tests/testthat/test-renaming.R

In correlation: Methods for Correlation Analysis

test_that("renaming columns", {
  # should warn the user
  expect_warning({
    out <- correlation(anscombe,
      select = c("x1", "x2"),
      rename = "var1"
    )
  })
  expect_snapshot(print(out))

  expect_snapshot(correlation(anscombe,
    select = c("x1", "x2"),
    rename = c("var1", "var2")
  ))

  expect_snapshot(correlation(anscombe,
    select = c("x1", "x2"),
    select2 = c("y1", "y2"),
    rename = c("var1", "var2")
  ))
})