tests/testthat/test-auto.R

In hafen/geofacet: 'ggplot2' Faceting Utilities for Geographical Data

context("auto")

test_that("auto examples work", {

  testthat::skip_if_not_installed("rnaturalearthhires")

  # auto grid using a name to identify the country
  expect_no_error({
    grd <- grid_auto("uruguay", seed = 1234)
    grid_preview(grd, label = "name")
    grd$name2 <- gsub(" ", "\n", grd$name)
    grid_preview(grd, label = "name2", label_raw = "name")
    # open the result up in the grid designer for further refinement
    # grid_design(grd, label = "name")
  })

  # using a custom file (can be GeoJSON or shapefile)
  expect_no_error({
    ff <- system.file("extdata", "bay_counties.geojson", package = "geogrid")
    bay_shp <- sf::st_read(ff)
    grd <- grid_auto(bay_shp, seed = 1) # names are inferred
    grid_preview(grd, label = "name_county")
    # grid_design(grd, label = "code_fipsstco")
  })

  # explicitly specify the names and codes variables to use
  expect_no_error({
    grd <- grid_auto(bay_shp, seed = 1, names = "county", codes = "fipsstco")
    grid_preview(grd, label = "name_county")
    # grid_preview(grd, label = "code_fipsstco")
  })
})