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

multi-axes

parent 5406c9c5
......@@ -719,6 +719,13 @@ shinyServer
title = "Setting : " ,
width = NULL,
status = "primary",
checkboxGroupInput(
"acpAxes",
label = "Axes : ",
choices = seq(10),
selected = c(1, 2),
inline = TRUE
),
selectInput(
"acpDist",
label = "Distance : ",
......@@ -768,8 +775,10 @@ shinyServer
})
output$acp <- renderPlot({
validate(need(data16S(),
"Requires an abundance dataset"))
validate(
need(data16S(), "Requires an abundance dataset"),
need(length(input$acpAxes) == 2, "Requires two projections axes")
)
p <- plot_samples(
data16S(),
ordination = ordinate(
......@@ -777,7 +786,8 @@ shinyServer
method = input$acpMethod,
distance = input$acpDist
),
axes = c(1, 2),
axes = as.numeric(input$acpAxes),
#c(1, 2),
color = checkNull(input$acpCol),
replicate = checkNull(input$acpRep),
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