Running ‘testthat.R’ [5s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(stplanr)
  > 
  > test_check("stplanr")
  OGR data source with driver: ESRI Shapefile 
  Source: ".", layer: "smallsa1"
  with 638 features
  It has 19 fields
  Integer64 fields read as strings:  OBJECTID_1 
  OGR data source with driver: ESRI Shapefile 
  Source: ".", layer: "testcycleway"
  with 2 features
  It has 2 fields
  Integer64 fields read as strings:  id 
  ── 1. Error: calc_catchment returns a SpatialPolygonsDataFrame (@test-calc_catch
  unable to find an inherited method for function 'row.names<-' for signature '"data.frame", "character"'
  1: calc_catchment(polygonlayer = sa1income, targetlayer = testcycleway, calccols = c("Total"), 
         distance = 800, projection = "austalbers", dissolve = TRUE) at testthat/test-calc_catchment.R:11
  2: calc_catchment.Spatial(polygonlayer = sa1income, targetlayer = testcycleway, calccols = c("Total"), 
         distance = 800, projection = "austalbers", dissolve = TRUE)
  3: rgeos::gBuffer(targetlayer, width = distance, quadsegs = quadsegs, byid = TRUE)
  4: `row.names<-`(`*tmp*`, value = id[m1])
  5: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list("data.frame", "character"), new("standardGeneric", .Data = function (x, value) 
     standardGeneric("row.names<-"), generic = structure("row.names<-", package = "rgeos"), 
         package = "rgeos", group = list(), valueClass = character(0), signature = c("x", 
         "value"), default = NULL, skeleton = (function (x, value) 
         stop("invalid call in method dispatch to 'row.names<-' (no default method)", 
             domain = NA))(x, value)), <environment>)
  6: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 3 SKIPPED: 1 FAILED: 1
  1. Error: calc_catchment returns a SpatialPolygonsDataFrame (@test-calc_catchment.R#11) 
  
  Error: testthat unit tests failed
  Execution halted