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.
i The deprecated feature was likely used in the ggiraphExtra package.
  Please report the issue to the authors.
Error:
! Problem while converting geom to grob.
i Error occurred in the 2nd layer.
Caused by error in `[.data.frame`:
! undefined columns selected
Backtrace:
     x
  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