chore: Auto-update from GitHub Actions

Run: https://github.com/cynkra/dm/actions/runs/22251999837

Author: Copilot

tests/testthat/test-dplyr.R

@@ -1022,19 +1022,41 @@ test_that("dm method signatures match dplyr data.frame method signatures", {
 
   # All dplyr verbs for which we provide methods, mapped to their classes
   verbs <- c(
-    "filter", "filter_out", "mutate", "transmute", "select", "relocate",
-    "rename", "distinct", "arrange", "slice", "group_by", "ungroup",
-    "summarise", "reframe", "count", "tally", "pull",
-    "left_join", "right_join", "inner_join", "full_join",
-    "semi_join", "anti_join", "nest_join", "cross_join"
+    "filter",
+    "filter_out",
+    "mutate",
+    "transmute",
+    "select",
+    "relocate",
+    "rename",
+    "distinct",
+    "arrange",
+    "slice",
+    "group_by",
+    "ungroup",
+    "summarise",
+    "reframe",
+    "count",
+    "tally",
+    "pull",
+    "left_join",
+    "right_join",
+    "inner_join",
+    "full_join",
+    "semi_join",
+    "anti_join",
+    "nest_join",
+    "cross_join"
   )
 
   for (verb in verbs) {
     df_method <- tryCatch(
       get(paste0(verb, ".data.frame"), envir = dplyr_ns),
       error = function(e) NULL
     )
-    if (is.null(df_method)) next
+    if (is.null(df_method)) {
+      next
+    }
 
     df_args <- names(formals(df_method))
 
@@ -1044,15 +1066,20 @@ test_that("dm method signatures match dplyr data.frame method signatures", {
         get(method_name, envir = dm_ns),
         error = function(e) NULL
       )
-      if (is.null(dm_method)) next
+      if (is.null(dm_method)) {
+        next
+      }
 
       dm_args <- names(formals(dm_method))
       missing_args <- setdiff(df_args, dm_args)
       expect_true(
         length(missing_args) == 0,
         label = paste0(
-          method_name, " is missing args from ", verb,
-          ".data.frame: ", paste(missing_args, collapse = ", ")
+          method_name,
+          " is missing args from ",
+          verb,
+          ".data.frame: ",
+          paste(missing_args, collapse = ", ")
         )
       )
     }

tests/testthat/test-tidyr.R

@@ -132,7 +132,9 @@ test_that("dm tidyr method signatures match tidyr data.frame method signatures",
       get(paste0(verb, ".data.frame"), envir = tidyr_ns),
       error = function(e) NULL
     )
-    if (is.null(df_method)) next
+    if (is.null(df_method)) {
+      next
+    }
 
     df_args <- names(formals(df_method))
 
@@ -142,15 +144,20 @@ test_that("dm tidyr method signatures match tidyr data.frame method signatures",
         get(method_name, envir = dm_ns),
         error = function(e) NULL
       )
-      if (is.null(dm_method)) next
+      if (is.null(dm_method)) {
+        next
+      }
 
       dm_args <- names(formals(dm_method))
       missing_args <- setdiff(df_args, dm_args)
       expect_true(
         length(missing_args) == 0,
         label = paste0(
-          method_name, " is missing args from ", verb,
-          ".data.frame: ", paste(missing_args, collapse = ", ")
+          method_name,
+          " is missing args from ",
+          verb,
+          ".data.frame: ",
+          paste(missing_args, collapse = ", ")
         )
       )
     }