tests/testthat/test-prep_df.R

In vvshiny: Create Complex Shiny Apps More Easily

test_that("prep_df works as expected", {
  df <- dplyr::tibble(
    VIS_Groep = sample(c("Group1", "Group2", "Group3"), 100, replace = TRUE),
    VIS_Groep_naam = sample(c("Name1", "Name2", "Name3"), 100, replace = TRUE),
    var1 = sample(c("A", "B", "C"), 100, replace = TRUE),
    var2 = rnorm(100),
    color_var = sample(c("Red", "Blue", "Green"), 100, replace = TRUE)
  )

  lFilters <- list("A;var1")
  lValues_for_naming = list("Name1;VIS_Groep_naam", "Name2;VIS_Groep_naam")
  color_var = "color_var"
  dfPrepared <- prep_df(lFilters, lValues_for_naming, df, color_var, facet = "right")

  expect_equal(nrow(dfPrepared), sum(df$var1 == "A"))
  expect_equal(unique(dfPrepared$VIS_Groep), "right")
  expect_s3_class(dfPrepared$color_var, "factor")
})