sandbox/test_aggRviz_filter.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_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(
  g2 = c("2"),
  a = c("b"),
  b = c("w")
)

df_empty <- dplyr::select(dplyr::filter(df_blanks,g1 == "aggRviz"),b, g2)



test_that('aggRviz_filter basic functionality', {

  expect_is(aggRviz_filter(df_noblanks, c("g1","a")),'data.frame')
  expect_is(aggRviz_filter(df_blanks, c("g2","b")),'data.frame')

  #expect_equal(aggRviz_filter(df_noblanks, c("g1","a")), df_empty)
  expect_equivalent(aggRviz_filter(df_blanks, c("g1")), df_blanks_filtered)

  })

test_that('aggRviz_filter errors', {

  expect_error(aggRviz_filter(5, c("5")), "Error: data should be a dataframe!")
  expect_error(aggRviz_filter(c(5,6,7), c("5")), "Error: data should be a dataframe!")
  expect_error(aggRviz_filter(df_blanks, c("5")),"Evaluation error: object '5' not found.")
  expect_error(aggRviz_filter(df_blanks, df_noblanks),"Error! col_2_delete needs to be a vector!")
  expect_error(aggRviz_filter(6, df_noblanks),"Error: data should be a dataframe!")



})