Testing format workflow

Author: DavisVaughan

R/across.R

@@ -236,7 +236,8 @@ across <- function(.cols, .fns, ..., .names = NULL, .unpack = FALSE) {
     stop_input_type(.unpack, "`TRUE`, `FALSE`, or a single string")
   }
 
-  if (is_string(.unpack)) {
+  if (
+    is_string(.unpack)) {
     unpack_spec <- .unpack
     .unpack <- TRUE
   } else {

R/bind-cols.R

@@ -30,7 +30,8 @@ bind_cols <- function(
 ) {
   dots <- list2(...)
 
-  dots <- list_flatten(dots, recursive = TRUE)
+  dots <- list_flatten(
+    dots, recursive = TRUE)
   dots <- discard(dots, is.null)
 
   # Strip names off of data frame components so that vec_cbind() unpacks them