tests/testthat/test-drop_na_columns.R

context("drop_na_columns")

test_that("`drop_na_columns` removes columns have only NAs", {
  data <- data.frame(x = rnorm(5), y = NA)

  expect_equal(
    drop_na_columns(
      population = data,
      variables = c("x", "y")
    ),
    c("y")
  )

  expect_equal(
    drop_na_columns(
      population = data,
      variables = c("x")
    ),
    character(0)
  )

  db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")

  data <- dplyr::copy_to(db, data)

  expect_equal(
    drop_na_columns(
      population = data,
      variables = c("x", "y")
    ),
    c("y")
  )

  expect_equal(
    drop_na_columns(
      population = data,
      variables = c("x")
    ),
    character(0)
  )

  DBI::dbDisconnect(db)
})
CellProfiler/cytominr documentation built on July 2, 2023, 6:19 p.m.