Error in `inDL(x, as.logical(local), as.logical(now), ...)`: unable to load shared object 'D:/RCompile/CRANpkg/lib/4.4/curl/libs/x64/curl.dll':
  `maximal number of DLLs reached...

test_that("rotl_pq works with data_fungi dataset", {
rotl_pq(data_fungi, species_colnames = "Genus_species")), "phylo")
test_that("heat_tree_pq works with data_fungi dataset", {
test_that("heat_tree_pq works with GlobalPatterns dataset", {
test_that("plot_tax_pq works with data_fungi dataset", {
plot_tax_pq(data_fungi_mini, "Time", taxa_fill = "Class")
test_that("multitax_bar_pq works with data_fungi_sp_known dataset", {
multitax_bar_pq(data_fungi_mini, "Phylum", "Class", "Order", "Time"),
multitax_bar_pq(data_fungi_mini, "Phylum", "Class", "Order", "TIMESS")
test_that("multitax_bar_pq works with GlobalPatterns dataset", {
multitax_bar_pq(GP_archae, "Phylum", "Class", "Order", "SampleType"),
multitax_bar_pq(GP_archae, "Phylum", "Class", "Order", "UNKOWNS")
test_that("rigdes_pq work with data_fungi dataset", {
ridges_pq(data_fungi_mini, "Time", alpha = 0.5),
position = ggridges::position_points_jitter(width = 0.05, height = 0),
test_that("treemap_pq work with data_fungi_sp_known dataset", {
test_that("tax_bar_pq work with data_fungi dataset", {
expect_s3_class(tax_bar_pq(data_fungi_mini, taxa = "Class"), "ggplot")
expect_s3_class(tax_bar_pq(data_fungi_mini, taxa = "Class", fact = "Time"), "ggplot")
test_that("add_funguild_info and plot_guild_pq work with data_fungi_mini dataset", {
expect_s3_class(plot_guild_pq(df, clean_pq = TRUE), "ggplot")
expect_s3_class(plot_guild_pq(df, clean_pq = FALSE), "ggplot")
test_that("build_phytree_pq work with data_fungi dataset", {
df <- subset_taxa_pq(data_fungi, taxa_sums(data_fungi) > 19000)
expect_type(df_tree <- build_phytree_pq(df, nb_bootstrap = 2, rearrangement = "stochastic"), "list")
expect_type(df_tree <- build_phytree_pq(df, nb_bootstrap = 2, rearrangement = "ratchet"), "list")
expect_error(build_phytree_pq(df, nb_bootstrap = 2, rearrangement = "PRAtchet"))
expect_type(df_tree <- build_phytree_pq(df, nb_bootstrap = 2), "list")
expect_type(df_tree_wo_bootstrap <- build_phytree_pq(df, nb_bootstrap = 0), "list")