Commit 14bb24f6 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

SampleID

parent 1a144e0a
......@@ -27,7 +27,7 @@ shinyServer
options = list(
dom = "lBtip",
pageLength = 10,
lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
buttons = list(
'colvis',
list(
......@@ -100,10 +100,11 @@ shinyServer
row.names = 1,
na.strings = NA
)
sample_data(d)$SampleID <- rownames(sample_data(d))
}
} else {
n <- data.frame(sample_names(d) , row.names = sample_names(d))
names(n) <- "sample_names"
names(n) <- "SampleID"
sample_data(d) <- n
}
if (input$rareData) {
......@@ -119,13 +120,9 @@ shinyServer
})
output$rarefactionMin <- renderText({
if (!is.null(input$fileBiom)) {
validate(need(input$fileBiom, ""), need(input$demo == "input", ""))
paste("(min sample =", format(min(sample_sums(data16S(
))), big.mark = " "), "reads)")
} else {
paste("(min sample =", 0, "reads)")
}
})
output$phyloseqPrint <- renderPrint({
......@@ -743,10 +740,7 @@ shinyServer
selectInput(
"acpLabel",
label = "Label :",
choices = c(
"..." = 0,
sample_variables(data16S())
)
choices = c("..." = 0, sample_variables(data16S()))
),
selectInput(
"acpCol",
......
......@@ -7,15 +7,13 @@ shinyUI(dashboardPage(
selectInput(
"demo",
label = "Select demo data",
choices = list(
"Input data" = "input",
choices = list("Input data" = "input",
"Chaillou et al., 2015" = "food"#,
# "Mach et al., 2015" = "kinetic",
# "Morton et al., 2017" = "soil",
# "Ravel et al., 2011" = "ravel",
#"GlobalPatterns" = "GlobalPatterns",
#"biorare"
),
#"biorare"),
selected = 1
)
),
......@@ -177,4 +175,5 @@ shinyUI(dashboardPage(
)
)
)
))
))
\ No newline at end of file
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