MANOVA formula

panels/richnessB-server.R

@@ -3,7 +3,7 @@ betaDist <- metaReactive2({
   metaExpr({
     distance(data, method = ..(input$betaDistance))
     })
-  })
+  }, varname = "beta.dist")
 
 ## MDS
 output$betaMdsUI <- renderUI({
@@ -193,10 +193,15 @@ output$betaManova <- renderPrint({
   validate(need(physeq(), "Requires an abundance dataset"))
   validate(need(input$betaManovaVar, "Requires at least one covariate"))
 
-  vegan::adonis(
+  sample_data <- as(sample_data(physeq()), "data.frame")
+  
+  manova <- vegan::adonis(
     formula = formula(),
-    data = as(sample_data(physeq()), "data.frame"),
+    data = sample_data,
     perm = 9999)
+  
+  manova$call$formula <- formula()
+  manova
 })
 
 ## Heatmap