The function connects two points into a line segment.

ray(from, to)

Arguments

from

A SpatialPoints* object specifying origin.

to

A SpatialPoints* object specifying destination.

Value

A SpatialLines object.

Examples

ctr = rgeos::gCentroid(build) angles = seq(0, 359, 20) sun = mapply( shadow:::.sunLocation, sun_az = angles, MoreArgs = list( location = ctr, sun_elev = 10) ) rays = mapply(ray, MoreArgs = list(from = ctr), to = sun) rays$makeUniqueIDs = TRUE rays = do.call(rbind, rays) plot(rays)
sun = do.call(rbind, sun) text(sun, as.character(angles))