SIU cases by police service — morie_siu_by_police

Per-police-service tabulation of case counts, charges-recommended counts, and the implied charge rate. Sorted by case count (descending), capped at the top 30 in the rendered table.

Usage

morie_siu_by_police_service(data = NULL)

Arguments

data: Either a data frame (e.g. the output of morie_fetch_siu() read in) or a path to SIU_by_case.csv. NULL (the default) looks in file.path(tempdir(), "morie", "siu", "SIU_by_case.csv").

Value

A morie_rich_result list with summary lines, one table, and a payload of raw counts.

Examples

df <- data.frame(
  police_service = c("Toronto Police Service", "Toronto Police Service",
                     "Ontario Provincial Police", "Peel Regional Police"),
  charges_recommended = c(TRUE, FALSE, FALSE, TRUE))
r <- morie_siu_by_police_service(df)
r$title
#> [1] "SIU cases by police service"