local_OLD_R/test-pat_monitorComparison.R

In MazamaScience/AirSensor: Process and Display Data from Air Quality Sensors

context('test-pat_monitorComparison')
data('example_pat', 'example_sensor')

test_that(
  'Plot return classes are correct', 
  expect_s3_class(
    pat_monitorComparison(example_pat, distanceCutoff = 0),
    c('gg', 'ggplot')
  )
)