fixed alpha diversity

server.R

@@ -21,7 +21,7 @@ Get_alpha_diversity <- function(bio){
   
   
   #shannon
-  H <- diversity(bio1)
+  H <- vegan::diversity(bio1)
   
   # Observed Richness
   richness <- specnumber(bio1)  
@@ -239,6 +239,7 @@ server <- function(input, output, session) {
       selected_variable <- input$LM_model_alpha_inputvar
   
       
+      print(biotic_factors)
       alpha <- Get_alpha_diversity(biotic_allgroups)
       
       alpha <- cbind(alpha, env)

ui.R

@@ -89,15 +89,14 @@ Alpha_div_tab <- tabItem(tabName = "AlphaDivPage",
                                      column(width = 4,
                                             includeMarkdown("markdown/Alpha_div.Rmd")),
                                      column(width = 4,
-                                            plotOutput("shannon_div_plt"))
+                                            plotOutput("shannon_div_plt")),
+                                     column(width = 4,
+                                            plotOutput("LM_alpha"))
                                      ),
                                  fluidRow(
                                      column(width = 4,
                                             uiOutput("linearmodel_radio")
-                                            ),
-                                     column(width = 4,
-                                            #LM summary
-                                            plotOutput("LM_alpha"))
+                                            )
                                  )
                              )
                          )