tests/testthat/test-drawQuadMap.R

In aestears/PlantTracker: Extract Demographic and Competition Data from Fine-Scale Maps

## get example data
dat <- grasslandData[grasslandData$Site == c("AZ") &
                       grasslandData$Species %in% c("Bouteloua rothrockii",
                                                    "Calliandra eriophylla") &
                       grasslandData$Quad == "SG4",]
names(dat)[1] <- "speciesName"
inv <- grasslandInventory[unique(dat$Quad)]
outDat <- trackSpp(
  dat = dat,
  inv = inv,
  dorm = 1,
  buff = .05,
  buffGenet = 0.005,
  clonal = data.frame(
    "Species" = unique(dat$speciesName),
    "clonal" = c(TRUE, FALSE)
  ),
  species = "speciesName",
  aggByGenet = TRUE
)
maps <- drawQuadMap(
  dat = outDat,
  type = "bySpecies",
  addBuffer = FALSE,
  species = "speciesName"
)

## test that output is a list with 'rect' and 'text' elements
test_that("output is a plot", {
  expect_true(object = is.list(maps) &
                (sum(c("rect","text") %in% names(maps)) == 2)
                )
}
)