tests/testthat/test-clean.R

In rmetaverse/synthesisr: Import, Assemble, and Deduplicate Bibliographic Datasets

test_that("clean_authors() works", {
  author_list <-
    c(
      "Haddaway, N.R., A. Feirman, M.J. Grainger, C.T. Gray, E. Tanriver-Ayder, S. Dhaubanjar, & M.J Westgate",
      "Grames, E.M., A.N. Stillman, M.W. Tingley AND C.S. Elphick"
    )
  expect_false(any(grepl("&", clean_authors(author_list))))
  expect_false(any(grepl("AND", clean_authors(author_list))))
})

test_that("clean_colnames() works", {
  cleaned <- clean_colnames(c(".title...", "X..YEAR",
                              "authors..", ".AUTHOR"))
  expect_false(any(grepl("[[:punct::]]", cleaned)))
  expect_false(any(duplicated(cleaned)))
  expect_false(any(grepl("^(X|Y|Z)\\.+", cleaned)))
})

test_that("clean_df() cleans authors, colnames and factors", {
  test_df <- data.frame(
    authors = c("Haddaway, N.R., A. Feirman AND M.J. Grainger", "Some authors"),
    "..misc." = c("text", "text2"),
    JOURNAL = as.factor(c("A journal", "Another journal"))
  )
  result <- clean_df(test_df)
  expect_false(any(grepl("AND", result$authors)))
  test_cols <- colnames(result)
  expect_false(any(grepl("[[:punct::]]", test_cols)))
  expect_equal(tolower(test_cols), test_cols)
  expect_false(any(unlist(lapply(result, is.factor))))
})