tests/testthat/test-paste_sans_NA.R

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

# generate test data
df_test <-
  dplyr::tibble(
  x = c("a","b", "c", NA),
  y = c("A","B", NA, NA)
)
df_test <- dplyr::mutate(df_test, new_var = paste_sans_NA(x,y))

test_that("paste_sans_NA handles sinlge NAs", {
  expect_equal(df_test$new_var, c("a A", "b B", "c", NA))
})

test_that("paste_sans_NA returns NA when all values are NA", {
  expect_true(is.na(df_test$new_var[4]))
})