Add a comment about something that confused me

tidyverse · Aug 28, 2024 · 93af944 · 93af944
1 parent c259c1d
commit 93af944
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/chop.R b/R/chop.R
@@ -254,8 +254,14 @@ df_unchop <- function(x, ..., ptype = NULL, keep_empty = FALSE, error_call = cal
     col_sizes <- x_sizes[[i]]
 
     if (!col_is_list) {
+      # Optimize rare non list-cols
       if (!is_null(col_ptype)) {
-        col <- vec_cast(col, col_ptype, x_arg = col_name, call = error_call)
+        col <- vec_cast(
+          x = col,
+          to = col_ptype,
+          x_arg = col_name,
+          call = error_call
+        )
       }
       out_cols[[i]] <- vec_slice(col, out_loc)
       next