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

upload log message

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