tests/testthat/test_schambach_figure.R

context("schambach_figure tests")

test_that("schambach_figure should return list of tables", {  
    figs <- schambach_figure(
      mapvizieR_obj = mapviz,
      measurementscale_in = 'Reading',
      studentids_in = c(paste0('F0800000', 1:9), paste0('F080000', 10:99)),
      subgroup_cols = c('grade', 'studentgender', 'studentethnicgroup'),
      pretty_names = c('Grade', 'Gender', 'Ethnicity'),
      start_fws = 'Fall',
      start_academic_year = 2013,
      end_fws = 'Spring',
      end_academic_year = 2013
    )
  
  expect_equal(length(figs), 3)
  expect_true("grob" %in% class(figs)) 
  expect_true("gtable" %in% class(figs))
  expect_true("gDesc" %in% class(figs))
}) 
almartin82/mapvizieR documentation built on May 10, 2018, 11:59 p.m.