Commit c69c4f29 authored by Midoux Cedric's avatar Midoux Cedric

upload RData

parent bc9e2173
...@@ -27,7 +27,7 @@ shinyServer ...@@ -27,7 +27,7 @@ shinyServer
options = list( options = list(
dom = "lBtip", dom = "lBtip",
pageLength = 10, 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( buttons = list(
'colvis', 'colvis',
list( list(
...@@ -50,12 +50,8 @@ shinyServer ...@@ -50,12 +50,8 @@ shinyServer
}) })
data16S <- reactive({ data16S <- reactive({
if (input$demo != "input") if (input$dataset == "input")
{ {
load("demo/demo.RData")
return(get(input$demo))
}
else {
if (is.null(input$fileBiom)) if (is.null(input$fileBiom))
{ {
return() return()
...@@ -116,11 +112,19 @@ shinyServer ...@@ -116,11 +112,19 @@ shinyServer
) )
} }
return(d) return(d)
} else if (input$dataset == "rdata")
{
load(input$fileRData$datapath)
return(data)
} else {
load("demo/demo.RData")
return(get(input$dataset))
} }
}) })
output$rarefactionMin <- renderText({ output$rarefactionMin <- renderText({
validate(need(input$fileBiom, ""), need(input$demo == "input", "")) validate(need(input$fileBiom, ""),
need(input$dataset == "input", ""))
paste("(min sample =", format(min(sample_sums(data16S( paste("(min sample =", format(min(sample_sums(data16S(
))), big.mark = " "), "reads)") ))), big.mark = " "), "reads)")
......
...@@ -6,15 +6,25 @@ shinyUI(dashboardPage( ...@@ -6,15 +6,25 @@ shinyUI(dashboardPage(
tags$div( tags$div(
title = "Select dataset for demonstration", title = "Select dataset for demonstration",
selectInput( selectInput(
"demo", "dataset",
label = "Select demo dataset : ", label = "Select dataset : ",
choices = list("Input data" = "input", choices = list(
"Chaillou et al., 2015" = "food"), "Input data" = "input",
"Rdata" = "rdata",
"Demo : Chaillou et al., 2015" = "food"
),
# "Mach et al., 2015" = "kinetic", "Morton et al., 2017" = "soil", "Ravel et al., 2011" = "ravel", "biorare" = "biorare", "GlobalPatterns" = "GlobalPatterns" # "Mach et al., 2015" = "kinetic", "Morton et al., 2017" = "soil", "Ravel et al., 2011" = "ravel", "biorare" = "biorare", "GlobalPatterns" = "GlobalPatterns"
selected = 1 selected = 1
) )
), ),
hr(width = "90%"), hr(),
tags$div(
title = "RData where 'data' is a phyloseq object.",
fileInput("fileRData",
label = "RData : ",
placeholder = "data.RData")
),
hr(),
tags$div( tags$div(
title = "Abundance BIOM file come from FROGS with 'FROGS BIOM to std BIOM', Qiime or another metagenomic tool.", title = "Abundance BIOM file come from FROGS with 'FROGS BIOM to std BIOM', Qiime or another metagenomic tool.",
fileInput("fileBiom", fileInput("fileBiom",
......
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