collapse results if all.equal finds a mismatch

Author: nmdefries

scripts/one_offs/r6_refactor.R

@@ -42,7 +42,10 @@ tib <- tibble::tibble(
   old_forecasts = old_forecasts,
   new_forecasts = new_forecasts,
   compare = purrr::map2_chr(old_forecasts, new_forecasts, function(x, y) {
-    all.equal(qs::qread(x), qs::qread(y)) %>% as.character()
+    # If objects are not the same, `all.equal` returns a character vector that
+    # can have `length` > 1. In that case, we need to collapse the output
+    # into a length-1 string so that `purrr::map2_chr` accepts it.
+    all.equal(qs::qread(x), qs::qread(y)) %>% as.character() %>% paste(collapse = "; ")
   })
 )
 tib %>%