Merge pull request #64 from openjusticeok/v2.0

V2.0

Author: brancengregory

.Rbuildignore

@@ -1,2 +1,4 @@
+^renv$
+^renv\.lock$
 ^.*\.Rproj$
 ^\.Rproj\.user$

.Rprofile

@@ -0,0 +1 @@
+source("renv/activate.R")

DESCRIPTION

@@ -1,16 +1,28 @@
 Package: ojodb
 Type: Package
 Title: Analyze data from the Open Justice Oklahoma Database
-Version: 1.0.3
+Version: 2.0.0
 Author: Ryan Gentzler
 Maintainer: Ryan Gentzler <rgentzler@okpolicy.org>
 Description: Provides convenient functions to query court data from the Open Justice Oklahoma database
 License: MIT + file LICENSE
-Depends: tidyverse, RMySQL, lubridate, httr, 
-          rvest, glue, sp, leaflet, dbx
-Imports: 
+Depends:
+    DBI,
     tidyverse,
-    RMySQL,
+    pool,
+    RPostgres,
+    lubridate,
+    httr,
+    rvest,
+    glue,
+    sp,
+    leaflet,
+    dbx
+Imports:
+    DBI,
+    tidyverse,
+    pool,
+    RPostgres,
     lubridate,
     httr,
     rvest,
@@ -22,6 +34,8 @@ Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.1.2
 Suggests: 
+    testthat (>= 3.0.0),
     knitr,
     rmarkdown
 VignetteBuilder: knitr
+Config/testthat/edition: 3

NAMESPACE

@@ -1 +1,21 @@
-exportPattern("^[[:alpha:]]+")
+# Generated by roxygen2: do not edit by hand
+
+export(connect_ojo)
+export(ojo_add_counts)
+export(ojo_add_issues)
+export(ojo_add_minutes)
+export(ojo_auth)
+export(ojo_civ_cases)
+export(ojo_color)
+export(ojo_connect)
+export(ojo_crim_cases)
+export(ojo_fill)
+export(ojo_list_schemas)
+export(ojo_list_tables)
+export(ojo_list_vars)
+export(ojo_pal)
+export(ojo_search_minutes)
+export(ojo_table)
+export(ojo_tbl)
+export(ojo_theme)
+import(dbplyr)

R/connect_ojo.R

@@ -0,0 +1,24 @@
+#' Query minutes for a given case
+#'
+#' Query the Open Justice Oklahoma database for the minutes of a case
+#'
+#' @export ojo_add_minutes
+#' @return data, a lazy tibble containing the resulting cases with minutes
+#' @examples
+#' \dontrun{
+#' ojo_add_minutes()
+#' }
+#'
+
+ojo_add_minutes <- function(data, ...) {
+  minutes <- ojo_tbl("minute")
+
+  data <- data |>
+    left_join(minutes,
+              by = c("id" = "case_id"),
+              suffix = c("", ".minute"))
+
+  return(data)
+}
+
+

R/doc_current_pop.R

@@ -0,0 +1,15 @@
+#' List the case types present in the OJO database
+#'
+#' Returns a tibble containing all the case types present in the OJO database
+#'
+#' @return Tibble of case types
+#' @examples
+#'
+#' ojo_case_types()
+#'
+
+ojo_case_types <- function() {
+  ojo_table("case") |>
+    count(case_type, sort = T) |>
+    collect()
+}