tests/testthat/test_filter_blanks.R

In amygoldlist/aggRviz: A package for dealing with data aggregated at many levels

context("Basic functionality tests")

df_noblanks <- data.frame(
  g1 = c(1, 1, 2, 2, 2),
  g2 = c(1, 2, 1, 2, 1),
  a = c("a", "b", "c", "d", "e"),
  b = c("q","w","e","r","t")
)

df_no1 <- df_noblanks %>%
  filter(g1 != 1) %>%
  filter(g2 !=1)

df_blanks <- data.frame(
  g1 = c("1", "", "2", "2", "2"),
  g2 = c("1", "2", "1", "2", "1"),
  a = c("a", "b", "c", "d", "e"),
  b = c("q","w","e","","t")
)

df_blanks_filtered <- data.frame(
  g1 = c("1",  "2",  "2"),
  g2 = c("1",  '1',  "1"),
  a = c("a", "c",  "e"),
  b = c("q","e","t")
)



test_that('filter_blanks basic functionality', {
    #outputs
  expect_is(filter_blanks(df_noblanks),'data.frame')
  expect_is(filter_blanks(df_blanks),'data.frame')
  expect_equal(filter_blanks(df_noblanks), df_noblanks)
  expect_equivalent(filter_blanks(df_blanks), df_blanks_filtered)
  ### key =1
  expect_equal(filter_blanks(df_noblanks, all_symbol = 1), df_no1)
  ##check features
  expect_equal(filter_blanks(df_blanks, features = c("a", "g2")), df_blanks)
  expect_error(filter_blanks(5), "data should be a dataframe!")
  expect_error(filter_blanks(c(4,65)), "Error: data should be a dataframe!")
  })