Fix ` the condition has length > 1`

[multimeric]

There are two places where is.na is used, but the input vector isn't guaranteed to have length 1:

SpatialScore/spatial_analytics.R

Line 30 in faf6a2c

if(is.na(r)){

SpatialScore/spatial_analytics.R

Line 58 in faf6a2c

if(!is.na(report)){

Can any() or all() be added here to resolve this?