tests/testthat/test-make_unique.R

In makeunique: Make Character Strings Unique

test_that("make_unique works", {
  vec_unique_num <- 1:10
  vec_unique_char <- LETTERS[1:10]

  vec_dup_num <- c(1, 2, 3, 4, 5, 3, 3, 1, 1)
  vec_dup_num_expected <- c('1 (1)', '2', '3 (1)', '4', '5', '3 (2)', '3 (3)', '1 (2)', '1 (3)')

  vec_dup_char <- c('Bob', 'Bob', 'Bob', 'Billy', 'Billy', 'Sven')
  vec_dup_char_expected <- c('Bob (1)', 'Bob (2)', 'Bob (3)', 'Billy (1)', 'Billy (2)', 'Sven')
  vec_dup_char_expected_dash_nowrap <- c('Bob-1', 'Bob-2', 'Bob-3', 'Billy-1', 'Billy-2', 'Sven')

  vec_dup_char_vals_clash_with_dedup_solution <- c('Bob', 'Bob', 'Bob', 'Billy', 'Billy', 'Sven', 'Billy (2)')

  vec_dup_char_with_na <- c('Bob', 'Bob', 'Bob', 'Billy', 'Billy', 'Sven', NA, NA)
  vec_dup_char_with_na_expected <-  c('Bob (1)', 'Bob (2)', 'Bob (3)', 'Billy (1)', 'Billy (2)', 'Sven', NA, NA)

  vec_dup_factor <- factor(c('Bob', 'Bob', 'Bob', 'Billy', 'Billy', 'Sven'))
  vec_dup_factor_expected <- c('Bob (1)', 'Bob (2)', 'Bob (3)', 'Billy (1)', 'Billy (2)', 'Sven')

  vec_empty_char <- character(0)
  vec_empty_num <- numeric(0)

  # Numerical inputs
  expect_error(
    make_unique(vec_unique_num, warn_about_type_conversion = FALSE),
    NA
  )

  expect_equal(
    make_unique(vec_unique_num, warn_about_type_conversion = FALSE),
    as.character(vec_unique_num)
  )

  expect_equal(
    make_unique(vec_dup_num, warn_about_type_conversion = FALSE),
    vec_dup_num_expected
  )


  expect_warning(
    make_unique(vec_dup_num, warn_about_type_conversion = TRUE),
    'numeric.*character'
  )

  # Character inputs
  expect_error(
    make_unique(vec_unique_char),
    NA
  )

  expect_equal(
    make_unique(vec_unique_char),
    vec_unique_char
  )

  expect_error(
    make_unique(vec_dup_char),
    NA
  )

  expect_equal(
    make_unique(vec_dup_char),
    vec_dup_char_expected
  )

  expect_equal(
    make_unique(vec_dup_char, sep = "-", wrap_in_brackets = FALSE),
    vec_dup_char_expected_dash_nowrap
  )


  expect_error(
    make_unique(vec_dup_char_vals_clash_with_dedup_solution),
    'try again'
  )

  expect_error(
    make_unique(vec_dup_char_vals_clash_with_dedup_solution, wrap_in_brackets = FALSE),
    NA
  )



  # Char with NAs
  expect_error(
    vec_dup_char_with_na,
    NA
  )

  expect_equal(
    make_unique(vec_dup_char_with_na),
    vec_dup_char_with_na_expected
  )

  # Factor inputs
  expect_error(
    make_unique(vec_dup_factor, warn_about_type_conversion = FALSE),
    NA
  )

  expect_equal(
    make_unique(vec_dup_factor, warn_about_type_conversion = FALSE),
    vec_dup_factor_expected
  )

  expect_warning(
    make_unique(vec_dup_factor, warn_about_type_conversion = TRUE),
    'factor.*character'
  )

  # Empty inputs
  expect_equal(
    make_unique(character(0)),
    character(0)
  )

  expect_equal(
    make_unique(numeric(0), warn_about_type_conversion = FALSE),
    as.character(numeric(0))
  )

  expect_equal(
    make_unique(as.factor(character(0)), warn_about_type_conversion = FALSE),
    character(0)
  )

  # Test incorrect argument classes
  expect_error(
    make_unique(as.Date(x = "02/02/22")),
    "character"
  )

  expect_error(
    make_unique(LETTERS[1:10], sep = TRUE)
  )

  expect_error(
    make_unique(LETTERS[1:10], wrap_in_brackets = "string")
  )

  expect_error(
    make_unique(LETTERS[1:10], warn_about_type_conversion = "string")
  )
})