tests/testthat/test-utilities.R

test_that("remove_dots() works", {
  df <- data.frame(
    column...name = c(1, 2, 3)
  )

  colnames(df) <- remove_dots(colnames(df))
  expect_equal(grep("\\.", colnames(df)), 1)
})
CambridgeCentreForProteomics/camprotR documentation built on Jan. 27, 2023, 8:36 p.m.