Adds the .frequency_id argument required by rlang::warn

.github/workflows/R-CMD-check.yaml

@@ -51,6 +51,8 @@ jobs:
           http-user-agent: ${{ matrix.config.http-user-agent }}
           use-public-rspm: true
 
+      # - uses: r-lib/actions/setup-renv@v2
+
       - uses: r-lib/actions/setup-r-dependencies@v2
         with:
           extra-packages: any::rcmdcheck

DESCRIPTION

@@ -48,9 +48,11 @@ Suggests:
   devtools,
   fledge,
   fs,
+  httpgd,
   httr,
   janitor,
   knitr,
+  languageserver,
   lifecycle,
   lintr,
   readr,

R/ojo_civ_cases.R

@@ -89,8 +89,7 @@ ojo_add_issues <- function(data, vars = NULL, ...) {
   if (is.null(vars)) {
     issues <- issues |>
       dplyr::select(
-        .data$case_id, .data$rank, .data$description,
-        .data$disposition, .data$disposition_date
+        case_id, rank, description, disposition, disposition_date
       )
   } else {
     if (vars != "all") {

R/ojo_collect.R

@@ -75,7 +75,8 @@ ojo_collect <- function(.data, ..., .silent = !rlang::is_interactive()) {
   if ("n" %in% names(.data)) {
     rlang::warn(
       "The tbl you are requesting has a variable named `n`. This can cause issues with progress bar rendering and status updates. This message won't be shown again this session.",
-      .frequency = "once"
+      .frequency = "once",
+      .frequency_id = "ojo_collect_n_warning"
     )
   }
 

R/ojo_county_population.R

@@ -29,10 +29,12 @@ ojo_county_population <- function(years) {
   }
 
   d <- d |>
-    dplyr::mutate(court = .data$NAME |>
-      stringr::str_remove(" County.*") |>
-      stringr::str_to_upper() |>
-      stringr::str_remove_all(" ")) |>
+    dplyr::mutate(
+      court = .data$NAME |>
+        stringr::str_remove(" County.*") |>
+        stringr::str_to_upper() |>
+        stringr::str_remove_all(" ")
+    ) |>
     dplyr::select(.data$court, .data$year, pop = .data$value)
 
   return(d)

R/ojo_list_schemas.R

@@ -22,7 +22,7 @@ ojo_list_schemas <- function(..., .con = NULL) {
     .con = .con
   ) |>
     dplyr::as_tibble() |>
-    dplyr::rename(schema = .data$schema_name) |>
+    dplyr::rename(schema = schema_name) |>
     dplyr::filter(!.data$schema %in% c("pg_catalog", "information_schema")) |>
     dplyr::arrange(.data$schema)
 }

R/ojo_list_tables.R

@@ -37,7 +37,7 @@ ojo_list_tables <- function(schema = "public", ..., .con = NULL) {
 
     pool::dbGetQuery(.con, query) |>
       dplyr::as_tibble() |>
-      dplyr::select(table = .data$table_name)
+      dplyr::select(table = table_name)
   }
 
   if (schema == "all") {

R/ojo_list_vars.R

@@ -27,6 +27,6 @@ ojo_list_vars <- function(table, schema = "public", ..., .con = NULL) {
       .data$table_schema == schema,
       .data$table_name == table
     ) |>
-    dplyr::select(.data$column_name) |>
+    dplyr::select(column_name) |>
     dplyr::arrange(.data$column_name)
 }

docs/pkgdown.yml

@@ -1,9 +1,8 @@
-pandoc: 3.0.1
+pandoc: 3.1.1
 pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   vignette-connecting-to-ojo: vignette-connecting-to-ojo.html
   vignette-pulling-data: vignette-pulling-data.html
-last_built: 2023-04-18T21:47Z
-
+last_built: 2023-08-24T21:19Z