tests/testthat/test-st_hatched_polygon.R

In rpkgs/gg.layers: ggplot layers

test_that("st_hatched_polygon works", {
  library(gg.layers)
  library(ggplot2)
  data("d_trendPerc")

  # ggplot(hatches) + geom_sf()
  expect_no_error({
    d = d_trendPerc %>% subset(perc >= 0.99) %>% .[, 1:2]
    poly = st_point2poly(d)
    hatches = st_hatched_polygon(poly) #
    print(hatches)
  })

  # from issues #3
  expect_no_error({
    franconia <- mapview::franconia
    hatch_franconia <- franconia %>%
      st_hatched_polygon(density = 10, angle = 45)
  })
  # expect_true("sfc_MULTILINESTRING" %in% class(hatches$geometry))
})