tests/testthat/test_topline_performance_chart.R

In almartin82/NYSEDtools: Data Management, Analysis, Visualization and Reporting Tools for NYSED L2RPT Data

context("topline performance chart tests")

test_that("topline_performance_chart should return ggplot object", {

  ex <- topline_performance_chart(
    sirs301_obj = demo_301,
    studentids = gr6,
    subject = 'Math',
    years = 2016
  )

  expect_is(ex, 'ggplot')
})