Document

itsleeds · Jul 1, 2024 · 395bcdf · 395bcdf
1 parent 8f8027a
commit 395bcdf
Show file tree

Hide file tree

Showing 5 changed files with 20 additions and 0 deletions.
diff --git a/R/get_cjs_codes.R b/R/get_cjs_codes.R
@@ -0,0 +1,20 @@
+#' Get Criminal Justice Codes
+#' 
+#' This function gets the criminal justice codes from the Criminal Justice Hub website.
+#' See [www.criminaljusticehub.org.uk](https://www.criminaljusticehub.org.uk/jargon-buster/cjs-offence-code/)
+#' 
+#' @export 
+#' @examples
+#' get_cjs_codes()
+get_cjs_codes = function(
+    u = paste0(
+        "https://www.criminaljusticehub.org.uk/wp-content/uploads/",
+        "2022/10/cjs-offence-index-sept-2022.ods"
+    )
+) {
+    f = file.path(tempdir(), "cjs_codes.ods")
+    message("Downloading CJS codes from ", u, " to ", f)
+    utils::download.file(u, f, mode = "wb")
+    cjs_codes = readODS::read_ods(f, sheet = 1)
+    cjs_codes
+}
diff --git a/man/figures/README-fig-time-1.pdf b/man/figures/README-fig-time-1.pdf
diff --git a/man/figures/README-fig-time-1.png b/man/figures/README-fig-time-1.png
diff --git a/man/figures/README-unnamed-chunk-20-1.png b/man/figures/README-unnamed-chunk-20-1.png
diff --git a/man/figures/README-unnamed-chunk-9-1.png b/man/figures/README-unnamed-chunk-9-1.png