tests/testthat/test-auto-mapping.R

In afsc-gap-products/akgfmaps: Alaska Groundfish and Ecosystem Survey Area Mapping

library(akgfmaps)

testthat::test_that("Test interpolation auto-mapping functions",
                    {test_map <- suppressWarnings(make_idw_map(x = akgfmaps::YFS2017, grid.cell = c(5000, 5000)));
                    test_labs <- suppressWarnings(add_map_labels(x = test_map));
                    test_resize <- suppressWarnings(akgfmaps::change_text_size(x = test_map, size.mult = 2));
                    test_raster_mask <- rasterize_and_mask(terra::rast(nrows = 100,
                                                             ncols = 100,
                                                             xmin = test_map$map_layers$plot.boundary$x[1],
                                                             xmax = test_map$map_layers$plot.boundary$x[2],
                                                             ymin = test_map$map_layers$plot.boundary$y[1],
                                                             ymax = test_map$map_layers$plot.boundary$y[2],
                                                             vals = rnorm(1e4),
                                                             crs = test_map$map_layers$crs$input),
                                                           amask = test_map$map_layers$survey.area);
                    expect_equal(test_map$n.breaks[1], 6);
                    expect_true(length(test_labs$map_layers$place.labels) > 2);
                    expect_true(is.list(suppressWarnings(change_fill_color(x = test_map, new.scheme = "blue"))));
                    expect_true(test_resize$plot$theme$axis.text$size/test_map$plot$theme$axis.text$size == 2.25);
                    })

testthat::test_that("Test sf.simple",
                    {
                      test_sf_simple <- suppressWarnings(
                        make_idw_map(x = akgfmaps::YFS2017,
                                     grid.cell = c(5000, 5000),
                                     extrapolation.grid.type = "sf.simple"));
                      expect_true(is(test_sf_simple$extrapolation.grid, "sf"));
                    }
)