Commit 1b4662a6 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

multi-axes

parent 5406c9c5
...@@ -719,6 +719,13 @@ shinyServer ...@@ -719,6 +719,13 @@ shinyServer
title = "Setting : " , title = "Setting : " ,
width = NULL, width = NULL,
status = "primary", status = "primary",
checkboxGroupInput(
"acpAxes",
label = "Axes : ",
choices = seq(10),
selected = c(1, 2),
inline = TRUE
),
selectInput( selectInput(
"acpDist", "acpDist",
label = "Distance : ", label = "Distance : ",
...@@ -768,8 +775,10 @@ shinyServer ...@@ -768,8 +775,10 @@ shinyServer
}) })
output$acp <- renderPlot({ output$acp <- renderPlot({
validate(need(data16S(), validate(
"Requires an abundance dataset")) need(data16S(), "Requires an abundance dataset"),
need(length(input$acpAxes) == 2, "Requires two projections axes")
)
p <- plot_samples( p <- plot_samples(
data16S(), data16S(),
ordination = ordinate( ordination = ordinate(
...@@ -777,7 +786,8 @@ shinyServer ...@@ -777,7 +786,8 @@ shinyServer
method = input$acpMethod, method = input$acpMethod,
distance = input$acpDist distance = input$acpDist
), ),
axes = c(1, 2), axes = as.numeric(input$acpAxes),
#c(1, 2),
color = checkNull(input$acpCol), color = checkNull(input$acpCol),
replicate = checkNull(input$acpRep), replicate = checkNull(input$acpRep),
shape = checkNull(input$acpShape), shape = checkNull(input$acpShape),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment