tests/testthat/test-currentdatabarchart.R

In Graham693/CovCan-R_Package: Canadian Covid-19 statistics and visulization package

# +
# source('R/betweendaychanges.r')
#
# source('R/daycovidchanges.r')
#
# source('R/timeseriesplot.r')
#
# source('R/currentdatabar.r')
#
# source('R/daily_count.r')

context("current_data_barchart")



library(testthat)

test_that(
  "current_data_barchart",
  {
    expect_true(!is.null(current_data_barchart('both', 'Canada', 'Alberta','Manitoba')))
  })



# -