diff --git a/tools/ampvis2/alpha_diversity.xml b/tools/ampvis2/alpha_diversity.xml
index 6d4d07556bb..4bf978b156c 100644
--- a/tools/ampvis2/alpha_diversity.xml
+++ b/tools/ampvis2/alpha_diversity.xml
@@ -13,12 +13,12 @@
library(ampvis2, quietly = TRUE)
d <- readRDS("$data")
- a <- amp_alphadiv(d,
+ table <- amp_alphadiv(d,
measure = c($m),
richness = $richness
@RAREFY_TOKEN@,
)
- b <- amp_alphadiv(d,
+ plot <- amp_alphadiv(d,
measure = c($m),
richness = $richness
@RAREFY_TOKEN@,
@@ -26,9 +26,9 @@
plot_group_by = "$group_by",
plot_scatter = $plot_scatter
)
- write.table(a, file='$alphadiv', quote=FALSE, sep='\t', row.names=FALSE)
+ write.table(table, file='$alphadiv', quote=FALSE, sep='\t', row.names=FALSE)
ggsave("$alphadiv_plot",
- plot = b,
+ plot = plot,
device = "$output_options.out_format"
#if str($output_options.plot_width) != ''
, width = $output_options.plot_width
@@ -55,7 +55,7 @@
-
+
@@ -71,7 +71,11 @@
-
+
@@ -90,8 +94,11 @@
-
-
+