R/ojo_add_minutes.R

In openjusticeok/ojodb: Analyze Data from the Open Justice Oklahoma Database

#' Query minutes for a given case
#'
#' Query the Open Justice Oklahoma database for the minutes of a case
#'
#' @param data A lazy tibble containing the cases to query
#' @param ... Placeholder for additional arguments
#' 
#' @export ojo_add_minutes
#' @returns 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 |>
    dplyr::left_join(minutes,
      by = c("id" = "case_id"),
      suffix = c("", ".minute")
    )

  return(data)
}