tests/testthat/test-plot_geographical.R

In UBC-MDS/Group28-CovidTracker-R: Tracking covid data in Canada

#Create helper data
covid_df <- get_covid_data()
plot <- plot_geographical(covid_df,cases)

# Test that input parameters are of the correct type
test_that("Incorrect input types should throw an error", {
  expect_error(plot_geographical("helper_df", cases))
  expect_error(plot_geographical(c("Covid", "Cases", "Canada"),cases))
})

# Test that column to plot is numeric
test_that("Column to plot  must be numeric", {
  expect_error(plot_geographical(covid_df, province))
  expect_error(plot_geographical(covid_df, date_report))
})

# Test that function returns a plot 
test_that("The returned plot should be a ggplot object.", {
  expect_true(ggplot2::is.ggplot(suppressWarnings(plot_geographical(covid_df,cases))))
})

# Test that plot attributes are correct
test_that('Plot should use geom_point and map x to x-axis, and y to y-axis.', {
  expect_true("GeomPolygon" %in% c(class(plot$layers[[1]]$geom)))
  expect_true("cases"  == rlang::get_expr(plot$layers[[1]]$mapping$fill))
  expect_true("long" == rlang::get_expr(plot$layers[[1]]$mapping$x))
  expect_true("lat" == rlang::get_expr(plot$layers[[1]]$mapping$y))
})