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

> ### Name: DAI
> ### Title: Estimate the index of dominance of the principal axis: DAI.
> ### Aliases: DAI DAI,aRchi-method
> 
> ### ** Examples
> 
> # Read an aRchi file with at least the QSM and the paths table
> file=system.file("extdata","Tree_1_aRchi.aRchi",package = "aRchi")
> Tree1_aRchi=read_aRchi(file)
> 
> DAI(Tree1_aRchi)
Warning in `[.data.frame`(x$env$data, 1L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 2L, drop = FALSE) :
  'drop' argument will be ignored
Warning in `[.data.frame`(x$env$data, 3L, drop = FALSE) :
  'drop' argument will be ignored
Warning in `[.data.frame`(x$env$data, 4L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 5L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 6L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 7L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 8L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 9L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 10L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Warning in `[.data.frame`(x$env$data, 11L, drop = FALSE) :
  'drop' argument will be ignored
Warning in max(x$Angle_P, x$Angle) :
  no non-missing arguments to max; returning -Inf
Error in list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor) : 
  nrow(labels) == length(null) is not TRUE
Calls: DAI ... <Anonymous> -> ldply -> list_to_dataframe -> stopifnot
Execution halted