Running examples in 'purrr-Ex.R' failed
The error most likely occurred in:

> ### Name: map2
> ### Title: Map over multiple inputs simultaneously.
> ### Aliases: map2 map2_lgl map2_int map2_dbl map2_chr map2_raw map2_dfr
> ###   map2_dfc map2_df walk2 pmap pmap_lgl pmap_int pmap_dbl pmap_chr
> ###   pmap_raw pmap_dfr pmap_dfc pmap_df pwalk
> 
> ### ** Examples
> 
> x <- list(1, 1, 1)
> y <- list(10, 20, 30)
> z <- list(100, 200, 300)
> 
> map2(x, y, ~ .x + .y)
[[1]]
[1] 11

[[2]]
[1] 21

[[3]]
[1] 31

> # Or just
> map2(x, y, `+`)
[[1]]
[1] 11

[[2]]
[1] 21

[[3]]
[1] 31

> 
> pmap(list(x, y, z), sum)
[[1]]
[1] 111

[[2]]
[1] 221

[[3]]
[1] 331

> 
> # Matching arguments by position
> pmap(list(x, y, z), function(first, second, third) (first + third) * second)
[[1]]
[1] 1010

[[2]]
[1] 4020

[[3]]
[1] 9030

> 
> # Matching arguments by name
> l <- list(a = x, b = y, c = z)
> pmap(l, function(c, b, a) (a + c) * b)
[[1]]
[1] 1010

[[2]]
[1] 4020

[[3]]
[1] 9030

> 
> # Split into pieces, fit model to each piece, then predict
> by_cyl <- mtcars %>% split(.$cyl)
> mods <- by_cyl %>% map(~ lm(mpg ~ wt, data = .))
> map2(mods, by_cyl, predict)
$`4`
    Datsun 710      Merc 240D       Merc 230       Fiat 128    Honda Civic 
      26.47010       21.55719       21.78307       27.14774       30.45125 
Toyota Corolla  Toyota Corona      Fiat X1-9  Porsche 914-2   Lotus Europa 
      29.20890       25.65128       28.64420       27.48656       31.02725 
    Volvo 142E 
      23.87247 

$`6`
     Mazda RX4  Mazda RX4 Wag Hornet 4 Drive        Valiant       Merc 280 
      21.12497       20.41604       19.47080       18.78968       18.84528 
     Merc 280C   Ferrari Dino 
      18.84528       20.70795 

$`8`
  Hornet Sportabout          Duster 360          Merc 450SE          Merc 450SL 
           16.32604            16.04103            14.94481            15.69024 
        Merc 450SLC  Cadillac Fleetwood Lincoln Continental   Chrysler Imperial 
           15.58061            12.35773            11.97625            12.14945 
   Dodge Challenger         AMC Javelin          Camaro Z28    Pontiac Firebird 
           16.15065            16.33700            15.44907            15.43811 
     Ford Pantera L       Maserati Bora 
           16.91800            16.04103 

> 
> # Vectorizing a function over multiple arguments
> df <- data.frame(
+   x = c("apple", "banana", "cherry"),
+   pattern = c("p", "n", "h"),
+   replacement = c("P", "N", "H"),
+   stringsAsFactors = FALSE
+   )
> pmap(df, gsub)
[[1]]
[1] "aPPle"

[[2]]
[1] "baNaNa"

[[3]]
[1] "cHerry"

> pmap_chr(df, gsub)
[1] "aPPle"  "baNaNa" "cHerry"
> 
> # Use `...` to absorb unused components of input list .l
> df <- data.frame(
+   x = 1:3,
+   y = 10:12,
+   z = letters[1:3]
+ )
> plus <- function(x, y) x + y
> ## Not run: 
> ##D # this won't work
> ##D pmap(df, plus)
> ## End(Not run)
> # but this will
> plus2 <- function(x, y, ...) x + y
> pmap_dbl(df, plus2)
[1] 11 13 15
> 
> # The "p" for "parallel" in pmap() is the same as in base::pmin()
> # and base::pmax()
> df <- data.frame(
+   x = c(1, 2, 5),
+   y = c(5, 4, 8)
+ )
> # all produce the same result
> pmin(df$x, df$y)
[1] 1 2 5
> map2_dbl(df$x, df$y, min)
[1] 1 2 5
> pmap_dbl(df, min)
[1] 1 2 5
> 
> # If you want to bind the results of your function rowwise, use:
> # map2_dfr() or pmap_dfr()
> ex_fun <- function(arg1, arg2){
+ col <- arg1 + arg2
+ x <- as.data.frame(col)
+ }
> arg1 <- 1:4
> arg2 <- 10:13
> map2_dfr(arg1, arg2, ex_fun)
  col
1  11
2  13
3  15
4  17
> # If instead you want to bind by columns, use map2_dfc() or pmap_dfc()
> map2_dfc(arg1, arg2, ex_fun)
Error in `dplyr::bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─purrr::map2_dfc(arg1, arg2, ex_fun)
  2. │ └─dplyr::bind_cols(res)
  3. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
  6. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
  7. │ └─rlang::names_inform_repair(orig_names, names)
  8. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
  9. │     ├─base::withRestarts(...)
 10. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 11. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 12. │     └─base::signalCondition(cnd)
 13. │       ├─base::conditionMessage(cond)
 14. │       └─rlang:::conditionMessage.rlang_message(cond)
 15. │         └─rlang::cnd_message(c)
 16. │           └─rlang:::cnd_message_format(cnd, ...)
 17. │             └─rlang (local) cli_format(glue_escape(lines))
 18. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 19. │                 └─cli::cli_format(x, .envir = emptyenv())
 20. │                   └─cli:::fmt(...)
 21. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 22. │                       ├─base::do.call(app[[msg$type]], msg$args)
 23. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-54", class = NULL)
 24. │                         └─cli:::clii_bullets(app, text, id, class)
 25. │                           └─base::lapply(...)
 26. │                             └─cli (local) FUN(X[[i]], ...)
 27. │                               └─app$text(text[[i]])
 28. │                                 └─cli:::clii_text(app, text)
 29. │                                   └─app$xtext(text)
 30. │                                     └─cli:::clii__xtext(...)
 31. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 32. │                                         └─base::lapply(pars, ansi_trimws)
 33. │                                           └─cli (local) FUN(X[[i]], ...)
 34. └─base::.handleSimpleError(...)
 35.   └─dplyr (local) h(simpleError(msg, call))
 36.     └─rlang::cnd_signal(cnd)
Execution halted