tests/testthat/test_historic_nth_percentile.R

context("historic nth percentile plot")

test_that("historic nth percentile plot generates ggplot object", {
  
  ex <- historic_nth_percentile_plot(
    mapviz, 
    mapviz$roster %>% 
      dplyr::filter(schoolname == 'Three Sisters Elementary School') %>% 
      dplyr::select(studentid) %>% unlist() %>% unname(),
    'Mathematics'
  )
  
  expect_is(ex, 'ggplot')
  
})
almartin82/mapvizieR documentation built on May 10, 2018, 11:59 p.m.