Misc cleanup

.Rbuildignore

@@ -11,7 +11,10 @@
 ^CITATION\.cff$
 ^doc$
 ^Meta$
+R\.Rproj$
 ^codecov\.yml$
 ^cran-comments\.md$
 ^CRAN-SUBMISSION$
 ^\.lintr$
+.Rprofile$
+.Rprofile\.R$

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

@@ -2,9 +2,9 @@
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
-    branches: [main, master]
+    branches: [main, master, devel]
   pull_request:
-    branches: [main, master]
+    branches: [main, master, devel]
 
 name: R-CMD-check
 
@@ -29,7 +29,7 @@ jobs:
       R_KEEP_PKG_SOURCE: yes
 
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-pandoc@v2
 

.github/workflows/lint.yaml

@@ -14,7 +14,7 @@ jobs:
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-r@v2
         with:

.github/workflows/pkgdown.yaml

@@ -22,7 +22,7 @@ jobs:
     permissions:
       contents: write
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-pandoc@v2
 
@@ -41,7 +41,7 @@ jobs:
 
       - name: Deploy to GitHub pages 🚀
         if: github.event_name != 'pull_request'
-        uses: JamesIves/github-pages-deploy-action@v4.4.1
+        uses: JamesIves/github-pages-deploy-action@v4.5.0
         with:
           clean: false
           branch: gh-pages

.github/workflows/test-coverage.yaml

@@ -0,0 +1,50 @@
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+    branches: [main, master]
+
+name: test-coverage
+
+jobs:
+  test-coverage:
+    runs-on: ubuntu-latest
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::covr
+          needs: coverage
+
+      - name: Test coverage
+        run: |
+          covr::codecov(
+            quiet = FALSE,
+            clean = FALSE,
+            install_path = file.path(normalizePath(Sys.getenv("RUNNER_TEMP"), winslash = "/"), "package")
+          )
+        shell: Rscript {0}
+
+      - name: Show testthat output
+        if: always()
+        run: |
+          ## --------------------------------------------------------------------
+          find ${{ runner.temp }}/package -name 'testthat.Rout*' -exec cat '{}' \; || true
+        shell: bash
+
+      - name: Upload test results
+        if: failure()
+        uses: actions/upload-artifact@v4
+        with:
+          name: coverage-test-failures
+          path: ${{ runner.temp }}/package

DESCRIPTION

@@ -21,7 +21,7 @@ License: GPL (>= 3)
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Imports: 
     cli,
     corrr,
@@ -69,6 +69,7 @@ Collate:
     'grim-map.R'
     'data-doc.R'
     'data-frame-predicates.R'
+    'seq-predicates.R'
     'function-map-seq.R'
     'debit-map-seq.R'
     'disperse.R'
@@ -108,19 +109,16 @@ Collate:
     'scrutiny-package.R'
     'seq-disperse.R'
     'seq-length.R'
-    'seq-predicates.R'
     'split-by-parens.R'
     'subset-superset.R'
     'utils-pipe.R'
     'utils-tidy-eval.R'
     'write-doc-audit.R'
 Suggests: 
-    covr,
-    devtools,
     knitr,
+    pkgload,
     rmarkdown,
-    roxygen2,
-    testthat (>= 3.0.0),
+    testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Depends: 
     R (>= 3.4.0)

NAMESPACE

@@ -12,7 +12,6 @@ S3method(audit,scr_grimmer_map)
 export("%>%")
 export(":=")
 export("seq_length<-")
-export()
 export(.data)
 export(anti_trunc)
 export(as_label)

R/function-map-total-n.R

@@ -331,7 +331,7 @@ function_map_total_n <- function(.fun, .reported, .name_test,
       check_tibble(data)
 
       # Make sure that the `n` column is present...
-      if (!any("n" == colnames(data))) {
+      if (!"n" %in% colnames(data)) {
         cli::cli_abort(c(
           "Column `n` missing.",
           "i" = "`n` should contain the reported total sample sizes \\

R/function-map.R

@@ -150,10 +150,10 @@ function_map <- function(.fun, .reported, .name_test,
   })
 
   code_rounding_class <-
-    if (any("rounding" == names(formals(.fun)))) {
+    if ("rounding" %in% names(formals(.fun))) {
       rlang::expr({
         dots <- rlang::enexprs(...)
-        if (any("rounding" == names(dots))) {
+        if ("rounding" %in% names(dots)) {
           rounding_class <- dots$rounding
         } else {
           rounding_class <- formals(fun)$rounding

R/method-dup-count.R

@@ -3,7 +3,7 @@
 #' @export
 
 audit.scr_dup_count <- function(data) {
-  if (any(colnames(data) == "locations_n")) {
+  if ("locations_n" %in% colnames(data)) {
     audit_summary_stats(data, c("count", "locations_n"))
   } else {
     audit_summary_stats(data, "count")

R/method-grim-sequence.R

@@ -4,7 +4,7 @@
 
 explain_seq_test_ranking <- function(x, scr_func_info) {
 
-  if (!any("lead_lag" == colnames(x))) {
+  if (!"lead_lag" %in% colnames(x)) {
     x$lead_lag <- NA
   }
 
@@ -110,7 +110,7 @@ explain_seq_test_ranking <- function(x, scr_func_info) {
 
 seq_test_ranking <- function(x, explain = TRUE) {
 
-  if (!any("consistency" == colnames(x))) {
+  if (!"consistency" %in% colnames(x)) {
     cli::cli_abort(c(
       "Column `consistency` is missing.",
       "i" = "Only run `seq_test_ranking()` on the output of a \\

R/method-grimmer-map.R

@@ -3,7 +3,7 @@
 
 audit.scr_grimmer_map <- function(data) {
   out <- audit_cols_minimal(data, "GRIMMER")
-  if (any("reason" == colnames(data))) {
+  if ("reason" %in% colnames(data)) {
     reason <- data$reason[!is.na(data$reason)]
     fail_grim  <- length(reason[stringr::str_detect(reason, "GRIM inconsistent")])
     fail_test1 <- length(reason[stringr::str_detect(reason, "test 1")])