Commit 902121ff authored by Midoux Cedric's avatar Midoux Cedric

upload log message

parent 160b528b
......@@ -118,12 +118,14 @@ observeEvent(input$okData, {
input$dataset,
"demo" =
{
message <- as.character(input$demo)
data(GlobalPatterns)
load("demo/demo.RData")
get(input$demo)
},
"input" =
{
message <- as.character(input$fileBiom$name)
d <- .import_biom(input)
## Format tax table
tax_table(d) <- .format_tax_table(tax_table(d))
......@@ -145,6 +147,7 @@ observeEvent(input$okData, {
},
"rdata" =
{
message <- as.character(input$fileRData$name)
ne <- new.env()
if (!is.null(input$fileRData))
{load(input$fileRData$datapath, envir = ne)}
......@@ -157,6 +160,7 @@ observeEvent(input$okData, {
)
if (class(physeq()) == "phyloseq") {
message(paste("[Easy16S] Correct upload with", input$dataset, "mode :", message))
removeModal()
} else {
showModal(dataInput(failed = TRUE))
......
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