Commit cb45b332 authored by mahendra-mariadassou's avatar mahendra-mariadassou

Merge branch 'master' of gitlab-ssh.irstea.fr:cedric.midoux/easy16S

parents 7dc5e253 73aa8517
.Rhistory
.RData
*.Rproj
.Rproj.user
.Rproj.user
This source diff could not be displayed because it is too large. You can view the blob instead.
This diff is collapsed.
Nom Reacteur Compartiment Date
170517_4A 4 anode 17/05/2017
170517_4C 4 cathode 17/05/2017
170517_5A 5 anode 17/05/2017
170517_5C 5 cathode 17/05/2017
170517_6A 6 anode 17/05/2017
170517_6C 6 cathode 17/05/2017
170517_7A 7 anode 17/05/2017
170517_7C 7 cathode 17/05/2017
170517_8A 8 anode 17/05/2017
170517_8C 8 cathode 17/05/2017
170517_9A 9 anode 17/05/2017
170517_9C 9 cathode 17/05/2017
170517_10A 10 anode 17/05/2017
170517_10C 10 cathode 17/05/2017
170517_11A 11 anode 17/05/2017
170517_11C 11 cathode 17/05/2017
170517_12A 12 anode 17/05/2017
170517_12C 12 cathode 17/05/2017
This diff is collapsed.
This diff is collapsed.
......@@ -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(
......@@ -114,14 +114,51 @@ shinyServer
return(d)
} else if (input$dataset == "rdata")
{
if (is.null(input$fileRData))
{
return()
}
load(input$fileRData$datapath)
return(data)
if (exists("data"))
{
return(data)
} else {
return()
}
} else {
load("demo/demo.RData")
return(get(input$dataset))
}
})
data <- reactiveValues()
{
observe({
if (!is.null(data16S()))
isolate(data <<- data16S())
})
}
output$downloadData <- {
downloadHandler(
filename = function() {
paste("Easy16S-data", Sys.Date(), "RData", sep = ".")
},
content = function(file) {
save(data, file = file)
}
)
}
output$downloadUI <- renderUI({
validate(need(data16S(), ""))
tags$div(
style = "text-align:center",
title = "Download as RData",
downloadButton("downloadData", "Download", style = "color: black; background-color: gray90")
)
})
output$rarefactionMin <- renderText({
validate(need(input$fileBiom, ""),
need(input$dataset == "input", ""))
......
......@@ -67,7 +67,7 @@ shinyUI(dashboardPage(
fileInput("fileTree",
label = "Phylogenetic tree : ",
placeholder = "data.nwk")
)#,
),
# tags$div(
# title = "Representative FASTA sequences of OTU",
# fileInput(
......@@ -75,7 +75,8 @@ shinyUI(dashboardPage(
# label = "FASTA sequences : "),
# placeholder = "data.fasta"
# )
# )
# ),
uiOutput("downloadUI")
),
dashboardBody(
tabsetPanel(
......
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