tests/testthat/test-varnames.R

In johnmyleswhite/ProjectTemplate: Automates the Creation of New Statistical Analysis Projects

context('Clean variable names')

test_that('Cleans variable names with underscore when underscore_variables = TRUE', {

  test_project <- tempfile('test_project')
  suppressMessages(create.project(test_project))
  on.exit(unlink(test_project, recursive = TRUE), add = TRUE)

  oldwd <- setwd(test_project)
  on.exit(setwd(oldwd), add = TRUE)

  config$underscore_variables  <- TRUE
  .save.config(config)

  suppressMessages(load.project())

  expect_that(clean.variable.name('test_me'), equals('test_me'))
  expect_that(clean.variable.name('test-me'), equals('test.me'))
  expect_that(clean.variable.name('test..me'), equals('test.me'))
  expect_that(clean.variable.name('test me'), equals('test.me'))
  expect_that(clean.variable.name('1990'), equals('X1990'))

})

test_that('Cleans variable names without underscore when underscore_variables = FALSE', {

  test_project <- tempfile('test_project')
  suppressMessages(create.project(test_project))
  on.exit(unlink(test_project, recursive = TRUE), add = TRUE)

  oldwd <- setwd(test_project)
  on.exit(setwd(oldwd), add = TRUE)

  config$underscore_variables  <- FALSE
  .save.config(config)

  suppressMessages(load.project(underscore_variables = FALSE))
  
  expect_that(clean.variable.name('test_me'), equals('test.me'))
  expect_that(clean.variable.name('test-me'), equals('test.me'))
  expect_that(clean.variable.name('test..me'), equals('test.me'))
  expect_that(clean.variable.name('test me'), equals('test.me'))
  expect_that(clean.variable.name('1990'), equals('X1990'))

})