tests/testthat/test-climate_plot.R

In sustainablefarms/farm_biodiversity_app: An App Predicting Bird Biodiversity on Farms

# test climate plot
test_that("test plot of AnnPrec for Gundagai", {
  data <- readRDS("data/sa2_points_climate.rds")
  variable  <- "AnnPrec"
  region <- "Gundagai"
  title <- "test climate plot"
  climate_plot(data, variable, region, title)
})

test_that("test plot of Maximum Temp for Gundagai", {
  data <- readRDS("data/sa2_points_climate.rds")
  variable  <- "MaxTWarmMonth"
  region <- "Gundagai"
  title <- "test climate plot"
  climate_plot(data, variable, region, title)
})

test_that("test plot of Minimum Temperatues for Gundagai", {
  data <- readRDS("data/sa2_points_climate.rds")
  variable  <- "MinTColdMonth"
  region <- "Gundagai"
  title <- "test climate plot"
  climate_plot(data, variable, region, title)
})