Running ‘testthat.R’ [4s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(shadow)
  Loading required package: sp
  > 
  > test_check("shadow")
  
    |                                                                            
    |                                                                      |   0%Determining Shadow
  
    |                                                                            
    |                                                                      |   0%══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_SVF.R:6:3): SVF calculation is correct ──────────────────────────
  Error: more elements supplied than there are to replace
  Backtrace:
       █
    1. ├─testthat::expect_equal(...) test_SVF.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─shadow::SVF(location = location0, obstacles = build, obstacles_height_field = "BLDG_HT") test_SVF.R:9:4
    5. └─shadow::SVF(location = location0, obstacles = build, obstacles_height_field = "BLDG_HT")
    6.   └─shadow:::.local(...)
    7.     └─shadow:::.SVFPnt(...)
    8.       ├─sp::SpatialPointsDataFrame(...)
    9.       │ └─base::row.names(data)
   10.       ├─sp::over(...)
   11.       └─sp::over(...)
   12.         └─sp:::.local(x, y, returnList, fn, ...)
   13.           ├─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   14.           └─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   15.             └─sp:::pointsInSpatialPolygons(x, y, returnList)
   16.               └─sp:::pointsInPolys2(...)
  ── Error (test_inShadow.R:6:3): 'inShadow' calculation is correct ──────────────
  Error: more elements supplied than there are to replace
  Backtrace:
       █
    1. ├─testthat::expect_equal(...) test_inShadow.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─shadow::inShadow(...) test_inShadow.R:753:4
    5. └─shadow::inShadow(...)
    6.   └─shadow:::.local(...)
    7.     ├─shadow::shadowHeight(...)
    8.     └─shadow::shadowHeight(...)
    9.       └─shadow:::.local(...)
   10.         └─shadow:::.shadowHeightPnt(...)
   11.           ├─sp::SpatialPointsDataFrame(...)
   12.           │ └─base::row.names(data)
   13.           ├─sp::over(...)
   14.           └─sp::over(...)
   15.             └─sp:::.local(x, y, returnList, fn, ...)
   16.               ├─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   17.               └─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   18.                 └─sp:::pointsInSpatialPolygons(x, y, returnList)
   19.                   └─sp:::pointsInPolys2(...)
  ── Error (test_radiation.R:6:3): radiation calculation is correct ──────────────
  Error: more elements supplied than there are to replace
  Backtrace:
       █
    1. ├─testthat::expect_equal(...) test_radiation.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─shadow::radiation(...) test_radiation.R:78:4
    5.   └─shadow:::.radiationGrid(...)
    6.     ├─shadow::inShadow(...)
    7.     └─shadow::inShadow(...)
    8.       └─shadow:::.local(...)
    9.         ├─shadow::shadowHeight(...)
   10.         └─shadow::shadowHeight(...)
   11.           └─shadow:::.local(...)
   12.             └─shadow:::.shadowHeightPnt(...)
   13.               ├─sp::SpatialPointsDataFrame(...)
   14.               │ └─base::row.names(data)
   15.               ├─sp::over(...)
   16.               └─sp::over(...)
   17.                 └─sp:::.local(x, y, returnList, fn, ...)
   18.                   ├─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   19.                   └─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   20.                     └─sp:::pointsInSpatialPolygons(x, y, returnList)
   21.                       └─sp:::pointsInPolys2(...)
  ── Error (test_shadowHeight.R:6:3): Shade height calculation is correct ────────
  Error: more elements supplied than there are to replace
  Backtrace:
       █
    1. ├─testthat::expect_equal(...) test_shadowHeight.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─shadow::shadowHeight(...) test_shadowHeight.R:13:4
    5. └─shadow::shadowHeight(...)
    6.   └─shadow:::.local(...)
    7.     └─shadow:::.shadowHeightPnt(...)
    8.       ├─sp::SpatialPointsDataFrame(...)
    9.       │ └─base::row.names(data)
   10.       ├─sp::over(...)
   11.       └─sp::over(...)
   12.         └─sp:::.local(x, y, returnList, fn, ...)
   13.           ├─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   14.           └─sp::over(x, geometry(y), returnList = TRUE, minDimension = minDimension)
   15.             └─sp:::pointsInSpatialPolygons(x, y, returnList)
   16.               └─sp:::pointsInPolys2(...)
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 1 ]
  Error: Test failures
  Execution halted