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") }) })