Neighbourhood + division + premises + location-type rollups plus a lat/long bounding-box summary. Tolerates missing columns.
Examples
# \donttest{
df <- try(morie_datasets_tps_assault(max_features = 200L))
if (!inherits(df, "try-error")) {
res <- try(morie_tps_spatial_summary(df, ds_name = "assault"))
if (!inherits(res, "try-error")) str(res, max.level = 1)
}
#> List of 8
#> $ title : chr "TPS spatial -- assault"
#> $ call : NULL
#> $ summary_lines :List of 5
#> $ tables :List of 4
#> $ warnings : chr(0)
#> $ interpretation: chr "Spatial rollup over 5 incident(s) in the assault dataset."
#> $ payload : list()
#> $ sections : list()
#> - attr(*, "class")= chr [1:3] "morie_tps_result" "morie_rich_result" "list"
# }
