Update test_maaslin_plot_results_from_output.R

tests/testthat/test_maaslin_plot_results_from_output.R

@@ -65,11 +65,11 @@ plot_out2 <- maaslin_plot_results(output = output_tmp,
                                  median_comparison_abundance = FALSE,
                                  max_significance = 0.1)
 
-expect_equal(plot_out$var1$a$logistic$data, plot_out2$var1$a$logistic$data)
-expect_equal(plot_out$var1$a$logistic$mapping, 
-             plot_out2$var1$a$logistic$mapping)
-expect_equal(plot_out$var1$a$logistic$scales, 
-             plot_out2$var1$a$logistic$scales)
+expect_equal(plot_out$assocation_plots$var1$a$logistic$data, plot_out2$assocation_plots$var1$a$logistic$data)
+expect_equal(plot_out$assocation_plots$var1$a$logistic$mapping, 
+             plot_out$assocation_plots2$var1$a$logistic$mapping)
+expect_equal(plot_out$assocation_plots$var1$a$logistic$scales, 
+             plot_out2$assocation_plots$var1$a$logistic$scales)
 
 unlink(output_tmp, recursive = T)