tweak example

Author: t-kalinowski

R/utils.R

@@ -621,7 +621,7 @@ function(x,
 #' names(gradients) <- paste0("gradient_", 1:3)
 #' try(zip_lists(gradients, weights)) # error, names don't match
 #' # call unname directly for positional matching
-#' zip_lists(unname(gradients), unname(weights))
+#' str(zip_lists(unname(gradients), unname(weights)))
 zip_lists <- function(...) {
   dots <- list(...)
   if(length(dots) == 1)