chore: Auto-update from GitHub Actions

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

Author: krlmlr

R/paste.R

@@ -127,10 +127,10 @@ dm_paste_impl <- function(dm, options, tab_width) {
     code_fks,
     code_color
   )
-  
+
   # remove any NULL/empty elements
   all_operations <- all_operations[lengths(all_operations) > 0]
-  
+
   # combine dm and paste code with chunking if needed
   code_dm <- dm_paste_chunk_operations(
     code_construct,
@@ -257,13 +257,13 @@ dm_paste_chunk_operations <- function(code_construct, all_operations, tab, chunk
       sep = glue(" %>%\n{tab}", .trim = FALSE)
     ))
   }
-  
+
   # Split operations into chunks
   chunks <- split(all_operations, ceiling(seq_along(all_operations) / chunk_size))
-  
+
   # Generate code for each chunk
   chunk_codes <- vector("character", length(chunks))
-  
+
   for (i in seq_along(chunks)) {
     if (i == 1) {
       # First chunk includes the dm construction
@@ -279,23 +279,23 @@ dm_paste_chunk_operations <- function(code_construct, all_operations, tab, chunk
       )
     }
   }
-  
+
   # If only one chunk, return it directly
   if (length(chunks) == 1) {
     return(chunk_codes[1])
   }
-  
+
   # Generate intermediate variable assignments and final result
   result_lines <- character()
-  
+
   for (i in seq_along(chunk_codes)) {
     var_name <- if (i == length(chunk_codes)) {
       # Last chunk - no assignment, just the expression
       NULL
     } else {
       paste0("dm_step_", i)
     }
-    
+
     if (i == 1) {
       # First chunk
       if (!is.null(var_name)) {
@@ -307,15 +307,15 @@ dm_paste_chunk_operations <- function(code_construct, all_operations, tab, chunk
       # Subsequent chunks
       prev_var_name <- paste0("dm_step_", i - 1)
       chunk_with_var <- paste0(prev_var_name, " %>%\n", tab, chunk_codes[i])
-      
+
       if (!is.null(var_name)) {
         result_lines <- c(result_lines, paste0(var_name, " <- ", chunk_with_var))
       } else {
         result_lines <- c(result_lines, chunk_with_var)
       }
     }
   }
-  
+
   paste(result_lines, collapse = "\n\n")
 }
 

tests/testthat/test-paste.R

@@ -108,15 +108,15 @@ test_that("output 2", {
 
 test_that("chunking behavior for large dm", {
   # Test that dm_paste chunks long pipe chains to avoid stack overflow
-  
+
   # Create a dm with many tables and foreign keys to trigger chunking
   create_large_dm <- function(n_tables = 55) {
     # Create main table
     main_table <- tibble(id = integer(0))
-    
+
     # Create list of tables
     tables <- list(main = main_table)
-    
+
     # Create many tables that reference the main table
     for (i in 1:n_tables) {
       table_name <- paste0("table_", i)
@@ -125,46 +125,46 @@ test_that("chunking behavior for large dm", {
         main_id = integer(0)
       )
     }
-    
+
     # Create dm
     dm_obj <- do.call(dm, tables)
-    
+
     # Add primary key to main table
     dm_obj <- dm_obj %>% dm_add_pk(main, id)
-    
+
     # Add primary keys and foreign keys to all other tables
     for (i in 1:n_tables) {
       table_name <- paste0("table_", i)
-      dm_obj <- dm_obj %>% 
+      dm_obj <- dm_obj %>%
         dm_add_pk(!!table_name, id) %>%
         dm_add_fk(!!table_name, main_id, main)
     }
-    
+
     return(dm_obj)
   }
-  
+
   # Create a dm with 55 tables (should generate ~165 operations: 56 PKs + 55 FKs + 54 color ops)
   large_dm <- create_large_dm(55)
-  
+
   # Capture output
   output <- capture.output(dm_paste(large_dm))
   output_text <- paste(output, collapse = "\n")
-  
+
   # Should generate more than 100 operations, triggering chunking
   # Check for intermediate variable assignments
   expect_true(
     grepl("dm_step_", output_text),
     info = "Expected chunking with intermediate variables for large dm"
   )
-  
+
   # Check that we have at least one intermediate step
   step_count <- length(gregexpr("dm_step_", output_text)[[1]])
   expect_gt(
-    step_count, 
+    step_count,
     0,
     info = "Expected at least one intermediate step variable"
   )
-  
+
   # Verify the final output references an intermediate variable
   expect_true(
     grepl("dm_step_\\d+ %>%", output_text),