chore: Auto-update from GitHub Actions

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

Author: krlmlr

R/dplyr.R

@@ -113,7 +113,14 @@ mutate.dm_keyed_tbl <- function(
 ) {
   keys_info <- keyed_get_info(.data)
   tbl <- unclass_keyed_tbl(.data)
-  out <- mutate(tbl, ..., .by = {{ .by }}, .keep = .keep, .before = {{ .before }}, .after = {{ .after }})
+  out <- mutate(
+    tbl,
+    ...,
+    .by = {{ .by }},
+    .keep = .keep,
+    .before = {{ .before }},
+    .after = {{ .after }}
+  )
   new_keyed_tbl_from_keys_info(out, keys_info)
 }
 

R/tidyr.R

@@ -51,16 +51,46 @@ unite.dm_keyed_tbl <- function(data, col, ..., sep = "_", remove = TRUE, na.rm =
 }
 
 #' @export
-separate.dm <- function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE, convert = FALSE, extra = "warn", fill = "warn", ...) {
+separate.dm <- function(
+  data,
+  col,
+  into,
+  sep = "[^[:alnum:]]+",
+  remove = TRUE,
+  convert = FALSE,
+  extra = "warn",
+  fill = "warn",
+  ...
+) {
   check_zoomed(data)
 }
 
 #' @rdname tidyr_table_manipulation
 #' @export
-separate.dm_zoomed <- function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE, convert = FALSE, extra = "warn", fill = "warn", ...) {
+separate.dm_zoomed <- function(
+  data,
+  col,
+  into,
+  sep = "[^[:alnum:]]+",
+  remove = TRUE,
+  convert = FALSE,
+  extra = "warn",
+  fill = "warn",
+  ...
+) {
   tbl <- tbl_zoomed(data)
   col <- tidyselect::vars_pull(names(tbl), !!enquo(col))
-  separated_tbl <- separate(tbl, col = !!col, into = into, sep = sep, remove = remove, convert = convert, extra = extra, fill = fill, ...)
+  separated_tbl <- separate(
+    tbl,
+    col = !!col,
+    into = into,
+    sep = sep,
+    remove = remove,
+    convert = convert,
+    extra = extra,
+    fill = fill,
+    ...
+  )
   # all columns that are not removed count as "selected"; names of "selected" are identical to "selected"
   deselected <- if (remove) col else character()
   selected <- set_names(setdiff(names(col_tracker_zoomed(data)), deselected))
@@ -70,9 +100,29 @@ separate.dm_zoomed <- function(data, col, into, sep = "[^[:alnum:]]+", remove =
 
 #' @rdname tidyr_table_manipulation
 #' @export
-separate.dm_keyed_tbl <- function(data, col, into, sep = "[^[:alnum:]]+", remove = TRUE, convert = FALSE, extra = "warn", fill = "warn", ...) {
+separate.dm_keyed_tbl <- function(
+  data,
+  col,
+  into,
+  sep = "[^[:alnum:]]+",
+  remove = TRUE,
+  convert = FALSE,
+  extra = "warn",
+  fill = "warn",
+  ...
+) {
   keys_info <- keyed_get_info(data)
   tbl <- unclass_keyed_tbl(data)
-  out <- separate(tbl, col = {{ col }}, into = into, sep = sep, remove = remove, convert = convert, extra = extra, fill = fill, ...)
+  out <- separate(
+    tbl,
+    col = {{ col }},
+    into = into,
+    sep = sep,
+    remove = remove,
+    convert = convert,
+    extra = extra,
+    fill = fill,
+    ...
+  )
   new_keyed_tbl_from_keys_info(out, keys_info)
 }