Running examples in ‘ggiraphExtra-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ggAncova
> ### Title: Make an interactive plot for an ANCOVA model
> ### Aliases: ggAncova ggAncova.default ggAncova.formula ggAncova.lm
> 
> ### ** Examples
> 
> require(moonBook)
Loading required package: moonBook

Attaching package: ‘moonBook’

The following objects are masked from ‘package:ggiraphExtra’:

    addLabelDf, getMapping

> require(ggplot2)
Loading required package: ggplot2
> require(ggiraph)
Loading required package: ggiraph
> ggAncova(radial,aes(age,NTAV,color=sex),interactive=TRUE)
Warning: The `<scale>` argument of `guides()` cannot be `FALSE`. Use "none" instead as
of ggplot2 3.3.4.
ℹ The deprecated feature was likely used in the ggiraphExtra package.
  Please report the issue to the authors.
Error:
! Problem while converting geom to grob.
ℹ Error occurred in the 2nd layer.
Caused by error in `[.data.frame`:
! undefined columns selected
Backtrace:
     ▆
  1. ├─ggiraphExtra::ggAncova(radial, aes(age, NTAV, color = sex), interactive = TRUE)
  2. ├─ggiraphExtra:::ggAncova.default(...)
  3. │ └─ggiraphExtra:::ggAncova.formula(formula, data, ...)
  4. │   └─ggiraphExtra:::ggAncova.lm(fit, ...)
  5. │     └─ggiraph::girafe(ggobj = p)
  6. │       ├─base::tryCatch(...)
  7. │       │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  8. │       ├─base::print(ggobj)
  9. │       └─ggplot2:::print.ggplot(ggobj)
 10. │         ├─ggplot2::ggplot_gtable(data)
 11. │         └─ggplot2:::ggplot_gtable.ggplot_built(data)
 12. │           └─ggplot2:::by_layer(...)
 13. │             ├─rlang::try_fetch(...)
 14. │             │ ├─base::tryCatch(...)
 15. │             │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 16. │             │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 17. │             │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 18. │             │ └─base::withCallingHandlers(...)
 19. │             └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 20. │               └─l$draw_geom(d, layout)
 21. │                 └─ggplot2 (local) draw_geom(..., self = self)
 22. │                   └─self$geom$draw_layer(...)
 23. │                     └─ggplot2 (local) draw_layer(..., self = self)
 24. │                       └─base::lapply(...)
 25. │                         └─ggplot2 (local) FUN(X[[i]], ...)
 26. │                           ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
 27. │                           └─self$draw_panel(...)
 28. │                             └─ggiraph (local) draw_panel(...)
 29. │                               └─ggplot2:::dapply(...)
 30. │                                 └─base::lapply(...)
 31. │                                   └─ggplot2 (local) FUN(X[[i]], ...)
 32. │                                     └─ggplot2 (local) apply_fun(cur_data)
 33. │                                       └─ggiraph (local) fun(x, ...)
 34. │                                         ├─ggiraph:::new_data_frame(...)
 35. │                                         ├─base::nrow(unique(df[, c("alpha", "colour", "size", "linetype")]))
 36. │                                         ├─base::unique(df[, c("alpha", "colour", "size", "linetype")])
 37. │                                         ├─df[, c("alpha", "colour", "size", "linetype")]
 38. │                                         └─base::`[.data.frame`(df, , c("alpha", "colour", "size", "linetype"))
 39. │                                           └─base::stop("undefined columns selected")
 40. └─base::.handleSimpleError(...)
 41.   └─rlang (local) h(simpleError(msg, call))
 42.     └─handlers[[1L]](cnd)
 43.       └─cli::cli_abort(...)
 44.         └─rlang::abort(...)
Execution halted