tests/testthat/test-clean_names.R

In Kidapt/keda: A Package to Support Exploratory Data Analysis

context("test-clean_names")

data_in <-
  dplyr::tibble(
  `X X` = c(1,2,3),
  Y = c(1,2,3),
  Z.8 = c(1,2,3)
)

names_out <- c("x_x", "y", "z_8")

test_that("multiplication works", {
  expect_equal(names(clean_names(data_in)), names_out)
})