Running examples in 'shadow-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: inShadow
> ### Title: Logical shadow calculation (is given point shaded?) for 3D
> ###   points considering sun position and obstacles
> ### Aliases: inShadow inShadow,SpatialPoints,Raster,missing,missing-method
> ###   inShadow,SpatialPoints,missing,ANY,ANY-method
> ###   inShadow,Raster,missing,ANY,ANY-method
> 
> ### ** Examples
> 
> # Method for 3D points - Manually defined
> 
> opar = par(mfrow = c(1, 3))
> 
> # Ground level
> location = sp::spsample(
+   rgeos::gBuffer(rgeos::gEnvelope(build), width = 20),
+   n = 100,
+   type = "regular"
+ )
> solar_pos = as.matrix(tmy[9, c("sun_az", "sun_elev")])
> s = inShadow(
+   location = location,
+   obstacles = build,
+   obstacles_height_field = "BLDG_HT",
+   solar_pos = solar_pos
+ )

  |                                                                            
  |                                                                      |   0% ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
shadow
 --- call from context --- 
.checkSolarPos(solar_pos, length1 = FALSE)
 --- call from argument --- 
if (class(solar_pos) != "matrix") stop("'solar_pos' must be a 'matrix' object")
 --- R stacktrace ---
where 1: .checkSolarPos(solar_pos, length1 = FALSE)
where 2: .local(location, obstacles, obstacles_height_field, ...)
where 3: shadowHeight(location = pnt_unique, obstacles = obstacles, obstacles_height_field = obstacles_height_field, 
    solar_pos = solar_pos[col, , drop = FALSE], ...)
where 4: shadowHeight(location = pnt_unique, obstacles = obstacles, obstacles_height_field = obstacles_height_field, 
    solar_pos = solar_pos[col, , drop = FALSE], ...)
where 5: .local(location, shadowHeightRaster = shadowHeightRaster, obstacles = obstacles, 
    obstacles_height_field = obstacles_height_field, ...)
where 6: inShadow(location = location, obstacles = build, obstacles_height_field = "BLDG_HT", 
    solar_pos = solar_pos)
where 7: inShadow(location = location, obstacles = build, obstacles_height_field = "BLDG_HT", 
    solar_pos = solar_pos)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (solar_pos, length1) 
{
    if (class(solar_pos) != "matrix") 
        stop("'solar_pos' must be a 'matrix' object")
    if (length1 & nrow(solar_pos) > 1) 
        stop("'solar_pos' must have a single row (sun position)")
    if (ncol(solar_pos) != 2) 
        stop("'solar_pos' must have two columns (azimuth + elevation)")
    if (any(solar_pos[, 1] < 0) | any(solar_pos[, 1] > 360)) 
        stop("Sun azimuth should be a number in [0, 360]")
    if (any(solar_pos[, 2] < -90) | any(solar_pos[, 2] > 90)) 
        stop("Sun elevation should be a number in [-90, 90]")
}
<bytecode: 0x82ea5c0>
<environment: namespace:shadow>
 --- function search by body ---
Function .checkSolarPos in namespace shadow has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1