Running ‘testthat.R’ [7s/9s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bcmaps)
  > 
  > test_check("bcmaps")
  ── 1. Error: (unknown) (@test-get_poly_attribute.R#14)  ────────────────────────
  replacement has 1 row, data has 0
  1: self_union(spdf) at testthat/test-get_poly_attribute.R:14
  2: raster_union(x)
  3: f(x)
  4: union(u, z)
  5: union(u, z)
  6: intersect(x, y)
  7: intersect(x, y)
  8: `[<-`(`*tmp*`, rows, xnames, value = 1L)
  9: `[<-.data.frame`(`*tmp*`, rows, xnames, value = 1L)
  10: xpdrows.data.frame(x, rows, new.rows)
  11: `[[<-`(`*tmp*`, i, value = NA_integer_)
  12: `[[<-.data.frame`(`*tmp*`, i, value = NA_integer_)
  13: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 2. Error: works with SpatialPolygons (@test-self_union.R#31)  ───────────────
  replacement has 1 row, data has 0
  1: expect_is(self_union(spp), "SpatialPolygonsDataFrame") at testthat/test-self_union.R:31
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: self_union(spp)
  5: raster_union(x)
  6: f(x)
  7: union(u, z)
  8: union(u, z)
  9: intersect(x, y)
  10: intersect(x, y)
  11: `[<-`(`*tmp*`, rows, xnames, value = 1L)
  12: `[<-.data.frame`(`*tmp*`, rows, xnames, value = 1L)
  13: xpdrows.data.frame(x, rows, new.rows)
  14: `[[<-`(`*tmp*`, i, value = NA_integer_)
  15: `[[<-.data.frame`(`*tmp*`, i, value = NA_integer_)
  16: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 3. Error: works with SpatialPolygonsDataFrame (@test-self_union.R#37)  ──────
  replacement has 1 row, data has 0
  1: expect_is(self_union(spdf), "SpatialPolygonsDataFrame") at testthat/test-self_union.R:37
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: self_union(spdf)
  5: raster_union(x)
  6: f(x)
  7: union(u, z)
  8: union(u, z)
  9: intersect(x, y)
  10: intersect(x, y)
  11: `[<-`(`*tmp*`, rows, xnames, value = 1L)
  12: `[<-.data.frame`(`*tmp*`, rows, xnames, value = 1L)
  13: xpdrows.data.frame(x, rows, new.rows)
  14: `[[<-`(`*tmp*`, i, value = NA_integer_)
  15: `[[<-.data.frame`(`*tmp*`, i, value = NA_integer_)
  16: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 64 SKIPPED: 9 FAILED: 3
  1. Error: (unknown) (@test-get_poly_attribute.R#14) 
  2. Error: works with SpatialPolygons (@test-self_union.R#31) 
  3. Error: works with SpatialPolygonsDataFrame (@test-self_union.R#37) 
  
  Error: testthat unit tests failed
  Execution halted