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

> ### Name: forestplot
> ### Title: Draws a forest plot
> ### Aliases: forestplot forestplot.default forestplot.data.frame
> ###   print.gforge_forestplot plot.gforge_forestplot forestplot.grouped_df
> 
> ### ** Examples
> 
> #############################################
> # Simple examples of how to do a forestplot #
> #############################################
> 
> ask <- par(ask = TRUE)
> 
> # A basic example, create some fake data
> row_names <- list(list("test = 1", expression(test >= 2)))
> test_data <- data.frame(
+   coef = c(1.59, 1.24),
+   low = c(1.4, 0.78),
+   high = c(1.8, 1.55)
+ )
> test_data %>%
+   forestplot(labeltext = row_names,
+              mean = coef,
+              lower = low,
+              upper = high,
+              zero = 1,
+              cex  = 2,
+              lineheight = "auto",
+              xlab = "Lab axis txt")
> 
> # Print two plots side by side using the grid
> # package's layout option for viewports
> grid.newpage()
> pushViewport(viewport(layout = grid.layout(1, 2)))
> pushViewport(viewport(layout.pos.col = 1))
> test_data %>%
+   forestplot(labeltext = row_names,
+              mean = coef,
+              lower = low,
+              upper = high,
+              zero = 1,
+              cex  = 2,
+              lineheight = "auto",
+              xlab = "Lab axis txt",
+              new_page = FALSE)
> popViewport()
> pushViewport(viewport(layout.pos.col = 2))
> test_data %>%
+   forestplot(labeltext = row_names,
+              mean = coef,
+              lower = low,
+              upper = high,
+              zero = 1,
+              cex  = 2,
+              lineheight = "auto",
+              xlab = "Lab axis txt",
+              new_page = FALSE)
> popViewport(2)
> 
> 
> # An advanced test
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> library(tidyr)

Attaching package: 'tidyr'

The following object is masked from 'package:magrittr':

    extract

> test_data <- data.frame(id = 1:4,
+                         coef1 = c(1, 1.59, 1.3, 1.24),
+                         coef2 = c(1, 1.7, 1.4, 1.04),
+                         low1 = c(1, 1.3, 1.1, 0.99),
+                         low2 = c(1, 1.6, 1.2, 0.7),
+                         high1 = c(1, 1.94, 1.6, 1.55),
+                         high2 = c(1, 1.8, 1.55, 1.33))
> 
> # Convert into dplyr formatted data
> out_data <- test_data %>%
+   pivot_longer(cols = everything() & -id) %>%
+   mutate(group = gsub("(.+)([12])$", "\\2", name),
+          name = gsub("(.+)([12])$", "\\1", name)) %>%
+   pivot_wider() %>%
+   group_by(group)
> 
> col_no <- grep("coef", colnames(test_data))
> row_names <- list(
+   list("Category 1", "Category 2", "Category 3", expression(Category >= 4)),
+   list(
+     "ref",
+     substitute(
+       expression(bar(x) == val),
+       list(val = round(rowMeans(test_data[2, col_no]), 2))
+     ),
+     substitute(
+       expression(bar(x) == val),
+       list(val = round(rowMeans(test_data[3, col_no]), 2))
+     ),
+     substitute(
+       expression(bar(x) == val),
+       list(val = round(rowMeans(test_data[4, col_no]), 2))
+     )
+   )
+ )
> 
> out_data %>%
+   forestplot(mean = coef,
+              lower = low,
+              upper = high,
+              labeltext = row_names,
+              title = "Cool study",
+              zero = c(0.98, 1.02),
+              grid = structure(c(2^-.5, 2^.5),
+                               gp = gpar(col = "steelblue", lty = 2)
+              ),
+              boxsize = 0.25,
+              col = fpColors(
+                box = c("royalblue", "gold"),
+                line = c("darkblue", "orange"),
+                summary = c("darkblue", "red")
+              ),
+              xlab = "The estimates",
+              new_page = TRUE,
+              legend = c("Treatment", "Placebo"),
+              legend_args = fpLegend(
+                pos = list("topright"),
+                title = "Group",
+                r = unit(.1, "snpc"),
+                gp = gpar(col = "#CCCCCC", lwd = 1.5)
+              ))
Error in `dplyr::bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─out_data %>% ...
  2. ├─forestplot::forestplot(...)
  3. ├─forestplot:::forestplot.grouped_df(...)
  4. │ └─base::sapply(...)
  5. │   └─base::lapply(X = X, FUN = FUN, ...)
  6. │     └─forestplot (local) FUN(X[[i]], ...)
  7. │       ├─base::suppressMessages(...)
  8. │       │ └─base::withCallingHandlers(...)
  9. │       └─... %>% as.matrix()
 10. ├─base::as.matrix(.)
 11. ├─dplyr::bind_cols(.)
 12. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
 13. │ │ └─base::withCallingHandlers(...)
 14. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
 15. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
 16. │ └─rlang::names_inform_repair(orig_names, names)
 17. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
 18. │     ├─base::withRestarts(...)
 19. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 20. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 21. │     └─base::signalCondition(cnd)
 22. │       ├─base::conditionMessage(cond)
 23. │       └─rlang:::conditionMessage.rlang_message(cond)
 24. │         └─rlang::cnd_message(c)
 25. │           └─rlang:::cnd_message_format(cnd, ...)
 26. │             └─rlang (local) cli_format(glue_escape(lines))
 27. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 28. │                 └─cli::cli_format(x, .envir = emptyenv())
 29. │                   └─cli:::fmt(...)
 30. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 31. │                       ├─base::do.call(app[[msg$type]], msg$args)
 32. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-30", class = NULL)
 33. │                         └─cli:::clii_bullets(app, text, id, class)
 34. │                           └─base::lapply(...)
 35. │                             └─cli (local) FUN(X[[i]], ...)
 36. │                               └─app$text(text[[i]])
 37. │                                 └─cli:::clii_text(app, text)
 38. │                                   └─app$xtext(text)
 39. │                                     └─cli:::clii__xtext(...)
 40. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 41. │                                         └─base::lapply(pars, ansi_trimws)
 42. │                                           └─cli (local) FUN(X[[i]], ...)
 43. └─base::.handleSimpleError(...)
 44.   └─dplyr (local) h(simpleError(msg, call))
 45.     └─rlang::cnd_signal(cnd)
Execution halted