tests/testthat/test-count-row-missing-values.R

context("Count missing values in each row")
library(glider)

test_that("count_row_missing_values counts correct number of missing values for each row", {
  df <- data.frame(a = c(1, NA, 2), b = c(NA, 2, NA), c = c(1, 2, NA))

  missing_values <- c(1, 1, 2)

  expect_setequal(count_row_missing_values(df)[["count_row_missing"]], missing_values)
})
antchau/glider documentation built on Dec. 1, 2020, 9:23 p.m.