Running ‘testthat.R’ [5s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidytree)
  If you use the ggtree package suite in published research, please cite
  the appropriate paper(s):
  
  S Xu, Z Dai, P Guo, X Fu, S Liu, L Zhou, W Tang, T Feng, M Chen, L
  Zhan, T Wu, E Hu, Y Jiang, X Bo, G Yu. ggtreeExtra: Compact
  visualization of richly annotated phylogenetic data. Molecular Biology
  and Evolution. 2021, 38(9):4039-4042. doi: 10.1093/molbev/msab166
  
  LG Wang, TTY Lam, S Xu, Z Dai, L Zhou, T Feng, P Guo, CW Dunn, BR
  Jones, T Bradley, H Zhu, Y Guan, Y Jiang, G Yu. treeio: an R package
  for phylogenetic tree input and output with richly annotated and
  associated data. Molecular Biology and Evolution. 2020, 37(2):599-603.
  doi: 10.1093/molbev/msz240
  
  Attaching package: 'tidytree'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("tidytree")
  [ FAIL 23 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-access-related-nodes.R:56:3'): conversion to table is reversible ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(as.phylo(as_tibble(bi_tree)), bi_tree) at test-access-related-nodes.R:56:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ape::as.phylo(as_tibble(bi_tree))
    5. ├─tibble::as_tibble(bi_tree)
    6. └─tidytree:::as_tibble.phylo(bi_tree)
    7.   ├─dplyr::full_join(res, label.df, by = "node")
    8.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
    9.     └─dplyr:::join_mutate(...)
   10.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.             ├─base::withCallingHandlers(...)
   15.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:65:5'): child works for bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(nrow(child(as_tibble(bi_tree), 1)), 0) at test-access-related-nodes.R:65:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(child(as_tibble(bi_tree), 1))
    5. ├─tidytree::child(as_tibble(bi_tree), 1)
    6. ├─tibble::as_tibble(bi_tree)
    7. └─tidytree:::as_tibble.phylo(bi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:75:5'): child works for non-bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:75:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(child(as_tibble(multi_tree), 1))
    5. ├─tidytree::child(as_tibble(multi_tree), 1)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:84:5'): offspring works on bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:84:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(offspring(as_tibble(bi_tree), 1))
    5. ├─tidytree::offspring(as_tibble(bi_tree), 1)
    6. ├─tibble::as_tibble(bi_tree)
    7. └─tidytree:::as_tibble.phylo(bi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:91:5'): offspring works on non-bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:91:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(offspring(as_tibble(multi_tree), 1))
    5. ├─tidytree::offspring(as_tibble(multi_tree), 1)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:98:5'): parent works for bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:98:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(parent(as_tibble(bi_tree), 11))
    5. ├─tidytree::parent(as_tibble(bi_tree), 11)
    6. ├─tibble::as_tibble(bi_tree)
    7. └─tidytree:::as_tibble.phylo(bi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:105:5'): parent works for non-bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:105:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(parent(as_tibble(multi_tree), 11))
    5. ├─tidytree::parent(as_tibble(multi_tree), 11)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:112:5'): ancestor works for bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:112:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(ancestor(as_tibble(bi_tree), 11))
    5. ├─tidytree::ancestor(as_tibble(bi_tree), 11)
    6. ├─tibble::as_tibble(bi_tree)
    7. └─tidytree:::as_tibble.phylo(bi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:119:5'): ancestor works for non-bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:119:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(ancestor(as_tibble(multi_tree), 11))
    5. ├─tidytree::ancestor(as_tibble(multi_tree), 11)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:128:5'): MRCA works for bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:128:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(MRCA(as_tibble(multi_tree), 11, 5))
    5. ├─tidytree::MRCA(as_tibble(multi_tree), 11, 5)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:136:5'): MRCA works for non-bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:136:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(MRCA(as_tibble(multi_tree), 11, 5))
    5. ├─tidytree::MRCA(as_tibble(multi_tree), 11, 5)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:144:5'): sibling works for bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:144:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(sibling(as_tibble(bi_tree), 11))
    5. ├─tidytree::sibling(as_tibble(bi_tree), 11)
    6. ├─tibble::as_tibble(bi_tree)
    7. └─tidytree:::as_tibble.phylo(bi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-access-related-nodes.R:151:5'): sibling works for non-bifurcating trees ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-access-related-nodes.R:151:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(sibling(as_tibble(multi_tree), 11))
    5. ├─tidytree::sibling(as_tibble(multi_tree), 11)
    6. ├─tibble::as_tibble(multi_tree)
    7. └─tidytree:::as_tibble.phylo(multi_tree)
    8.   ├─dplyr::full_join(res, label.df, by = "node")
    9.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.             ├─base::withCallingHandlers(...)
   16.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:9:5'): select fields from treedata and return tbl_df directly  ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-dplyr-methods.R:9:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tree %>% select(group) %>% nrow()
    5. ├─base::nrow(.)
    6. ├─dplyr::select(., group)
    7. ├─tidytree:::select.treedata(., group)
    8. │ └─tidytree:::.extract_annotda.treedata(.data)
    9. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   10. ├─tidytree:::drop_class(., name = "tbl_tree")
   11. ├─tidytree:::.internal_add_isTip(.)
   12. │ └─x %<>% ...
   13. ├─dplyr::mutate(...)
   14. ├─tibble::as_tibble(.)
   15. └─tidytree:::as_tibble.phylo(.)
   16.   ├─dplyr::full_join(res, label.df, by = "node")
   17.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18.     └─dplyr:::join_mutate(...)
   19.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.             ├─base::withCallingHandlers(...)
   24.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:14:5'): select fields from treedata and return treedata ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-dplyr-methods.R:14:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::inherits(tree %>% select(-group, keep.td = TRUE), "treedata")
    5. ├─tree %>% select(-group, keep.td = TRUE)
    6. ├─dplyr::select(., -group, keep.td = TRUE)
    7. ├─tidytree:::select.treedata(., -group, keep.td = TRUE)
    8. │ └─tidytree:::.extract_annotda.treedata(.data)
    9. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   10. ├─tidytree:::drop_class(., name = "tbl_tree")
   11. ├─tidytree:::.internal_add_isTip(.)
   12. │ └─x %<>% ...
   13. ├─dplyr::mutate(...)
   14. ├─tibble::as_tibble(.)
   15. └─tidytree:::as_tibble.phylo(.)
   16.   ├─dplyr::full_join(res, label.df, by = "node")
   17.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18.     └─dplyr:::join_mutate(...)
   19.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.             ├─base::withCallingHandlers(...)
   24.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:20:5'): filter fields for treedata and return tbl_df directly ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-dplyr-methods.R:20:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tree %>% filter(group == "A", keep.td = FALSE) %>% nrow()
    5. ├─base::nrow(.)
    6. ├─dplyr::filter(., group == "A", keep.td = FALSE)
    7. ├─tidytree:::filter.treedata(., group == "A", keep.td = FALSE)
    8. │ └─tidytree:::.extract_annotda.treedata(.data)
    9. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   10. ├─tidytree:::drop_class(., name = "tbl_tree")
   11. ├─tidytree:::.internal_add_isTip(.)
   12. │ └─x %<>% ...
   13. ├─dplyr::mutate(...)
   14. ├─tibble::as_tibble(.)
   15. └─tidytree:::as_tibble.phylo(.)
   16.   ├─dplyr::full_join(res, label.df, by = "node")
   17.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18.     └─dplyr:::join_mutate(...)
   19.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.             ├─base::withCallingHandlers(...)
   24.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:37:5'): filter fields for treedata and return treedata ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-dplyr-methods.R:37:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::inherits(...)
    5. ├─tree %>% filter(group == "A", keep.td = TRUE)
    6. ├─dplyr::filter(., group == "A", keep.td = TRUE)
    7. ├─tidytree:::filter.treedata(., group == "A", keep.td = TRUE)
    8. │ └─tidytree:::.extract_annotda.treedata(.data)
    9. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   10. ├─tidytree:::drop_class(., name = "tbl_tree")
   11. ├─tidytree:::.internal_add_isTip(.)
   12. │ └─x %<>% ...
   13. ├─dplyr::mutate(...)
   14. ├─tibble::as_tibble(.)
   15. └─tidytree:::as_tibble.phylo(.)
   16.   ├─dplyr::full_join(res, label.df, by = "node")
   17.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18.     └─dplyr:::join_mutate(...)
   19.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.             ├─base::withCallingHandlers(...)
   24.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:49:5'): mutate fields for treedata and return tbl_df ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-dplyr-methods.R:49:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tree %>% mutate(type = "A", keep.td = FALSE) %>% nrow()
    5. ├─base::nrow(.)
    6. ├─dplyr::mutate(., type = "A", keep.td = FALSE)
    7. ├─tidytree:::mutate.treedata(., type = "A", keep.td = FALSE)
    8. │ └─tidytree:::.extract_annotda.treedata(.data)
    9. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   10. ├─tidytree:::drop_class(., name = "tbl_tree")
   11. ├─tidytree:::.internal_add_isTip(.)
   12. │ └─x %<>% ...
   13. ├─dplyr::mutate(...)
   14. ├─tibble::as_tibble(.)
   15. └─tidytree:::as_tibble.phylo(.)
   16.   ├─dplyr::full_join(res, label.df, by = "node")
   17.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18.     └─dplyr:::join_mutate(...)
   19.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.             ├─base::withCallingHandlers(...)
   24.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:66:5'): mutate fields for treedata and return treedata ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-dplyr-methods.R:66:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::inherits(tree %>% mutate(type = "A", keep.td = TRUE), "treedata")
    5. ├─tree %>% mutate(type = "A", keep.td = TRUE)
    6. ├─dplyr::mutate(., type = "A", keep.td = TRUE)
    7. ├─tidytree:::mutate.treedata(., type = "A", keep.td = TRUE)
    8. │ └─tidytree:::.extract_annotda.treedata(.data)
    9. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   10. ├─tidytree:::drop_class(., name = "tbl_tree")
   11. ├─tidytree:::.internal_add_isTip(.)
   12. │ └─x %<>% ...
   13. ├─dplyr::mutate(...)
   14. ├─tibble::as_tibble(.)
   15. └─tidytree:::as_tibble.phylo(.)
   16.   ├─dplyr::full_join(res, label.df, by = "node")
   17.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   18.     └─dplyr:::join_mutate(...)
   19.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.             ├─base::withCallingHandlers(...)
   24.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:82:5'): left_join for treedata ─────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tree %>% left_join(df, by = "label") at test-dplyr-methods.R:82:4
    2. ├─dplyr::left_join(., df, by = "label")
    3. ├─tidytree:::left_join.treedata(., df, by = "label")
    4. │ └─tidytree:::.extract_annotda.treedata(x)
    5. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
    6. ├─tidytree:::drop_class(., name = "tbl_tree")
    7. ├─tidytree:::.internal_add_isTip(.)
    8. │ └─x %<>% ...
    9. ├─dplyr::mutate(...)
   10. ├─tibble::as_tibble(.)
   11. └─tidytree:::as_tibble.phylo(.)
   12.   ├─dplyr::full_join(res, label.df, by = "node")
   13.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   14.     └─dplyr:::join_mutate(...)
   15.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19.             ├─base::withCallingHandlers(...)
   20.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:108:5'): pull for treedata ─────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-dplyr-methods.R:108:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tree %>% pull(label, name = node)
    5. ├─dplyr::pull(., label, name = node)
    6. ├─tidytree:::pull.treedata(., label, name = node)
    7. │ └─tidytree:::.extract_annotda.treedata(.data)
    8. │   └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
    9. ├─tidytree:::drop_class(., name = "tbl_tree")
   10. ├─tidytree:::.internal_add_isTip(.)
   11. │ └─x %<>% ...
   12. ├─dplyr::mutate(...)
   13. ├─tibble::as_tibble(.)
   14. └─tidytree:::as_tibble.phylo(.)
   15.   ├─dplyr::full_join(res, label.df, by = "node")
   16.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   17.     └─dplyr:::join_mutate(...)
   18.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   19.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   21.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   22.             ├─base::withCallingHandlers(...)
   23.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dplyr-methods.R:117:5'): rename for treedata ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-dplyr-methods.R:117:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% dplyr::slice(seq_len(5))
    5. ├─dplyr::slice(., seq_len(5))
    6. ├─dplyr::select(., node, group, type)
    7. ├─dplyr::rename(., type = test)
    8. ├─tidytree:::rename.treedata(., type = test)
    9. │ └─.data %>% .extract_annotda.treedata()
   10. ├─tidytree:::.extract_annotda.treedata(.)
   11. │ └─x %>% as_tibble() %>% .internal_add_isTip() %>% ...
   12. ├─tidytree:::drop_class(., name = "tbl_tree")
   13. ├─tidytree:::.internal_add_isTip(.)
   14. │ └─x %<>% ...
   15. ├─dplyr::mutate(...)
   16. ├─tibble::as_tibble(.)
   17. └─tidytree:::as_tibble.phylo(.)
   18.   ├─dplyr::full_join(res, label.df, by = "node")
   19.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
   20.     └─dplyr:::join_mutate(...)
   21.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   22.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   24.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   25.             ├─base::withCallingHandlers(...)
   26.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-grouping.R:8:1'): (code run outside of `test_that()`) ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tibble::as_tibble(tree) at test-grouping.R:8:0
    2. └─tidytree:::as_tibble.phylo(tree)
    3.   ├─dplyr::full_join(res, label.df, by = "node")
    4.   └─dplyr:::full_join.data.frame(res, label.df, by = "node")
    5.     └─dplyr:::join_mutate(...)
    6.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    8.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.             ├─base::withCallingHandlers(...)
   11.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 23 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted