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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: learn_theme_label
> ### Title: Learn label
> ### Aliases: learn_theme_label
> 
> ### ** Examples
> 
> 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

>   tree <- system.file("extdata",
+                       "tree_of_itol_templates.tree",
+                       package = "itol.toolkit")
>   tab_tmp <- data.table::fread(system.file("extdata",
+                                            "parameter_groups.txt",
+                                            package = "itol.toolkit"))
>   tab_id_group <- tab_tmp[,c(1,2)]
>   tab_tmp <- tab_tmp[,-c(1,2)]
>   tab_tmp_01 <- convert_01(object = tab_tmp)
>   tab_tmp_01 <- cbind(tab_id_group,tab_tmp_01)
>   order <- c("type","separator","profile","field","common themes",
+     "specific themes","data")
>   tab_tmp_01_long <- tab_tmp_01 %>% 
+                        tidyr::gather(key = "variable",
+                                      value = "value",
+                                      c(-parameter,-group))
>   template_start_group <- tab_tmp_01_long %>% 
+                             group_by(group,variable) %>% 
+                             summarise(sublen = sum(value)) %>% 
+                             tidyr::spread(key=variable,
+                                           value=sublen)
`summarise()` has grouped output by 'group'. You can override using the
`.groups` argument.
>   template_start_group$group <- factor(template_start_group$group,
+                                        levels = order)
>   template_start_group <- template_start_group %>% arrange(group)
>   start_group <- data.frame(Var1 = template_start_group$group, 
+                             Freq = apply(template_start_group[,-1], 1, max))
>   start_group$start <- 0
>   for (i in 2:nrow(start_group)) {
+     start_group$start[i] <- sum(start_group$Freq[1:(i-1)])
+   }
>   template_start_group[template_start_group == 0] <- NA
Error in vectbl_assign(x[[j]], cells[[j]], value) : 
  DLL requires the use of native symbols
Calls: [<- ... tbl_subassign_matrix -> withCallingHandlers -> vectbl_assign
Execution halted