Commit 7273de4f authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Activate tree load

parent 51850a77
......@@ -163,7 +163,8 @@ shinyServer(function(input, output,session) {
dataInputTree <-reactive({
data = NULL
inFile <- input$fileTree
{inFile <- input$fileTree
values$tree_masque}
if (!is.null(inFile) && is.null(values$tree_masque)) {
try(read.tree(inFile$datapath)->data, silent=T)
......@@ -191,13 +192,14 @@ shinyServer(function(input, output,session) {
# Infobox Tree (Unifrac)
output$InfoTreePhylo_box <- renderInfoBox({
input$fileTree
{input$fileTree
values$tree_masque}
tree_tmp = isolate(dataInputTree())
tree = tree_tmp$data
res = infoBox(h6(strong("Phylogenetic tree")), subtitle = h6(strong("Load the phylogenetic tree (optional)")) ,color = "light-blue",width=NULL,fill=TRUE, icon = icon("upload"))
if(!is.null(tree)){
if(!is.null(isolate(input$fileTree))){
#if(!is.null(isolate(input$fileTree))){
res = infoBox(h6(strong("Phylogenetic tree")), subtitle = h6("The phylogenetic has been loaded") ,color = "green",width=NULL,fill=TRUE, icon = icon("thumbs-o-up"))
if(!is.null(tree_tmp$Warning)){
res = infoBox(h6(strong("Phylogenetic tree")), subtitle = h6(tree_tmp$Warning) ,color = "orange",width=NULL,fill=TRUE, icon = icon("warning"))
......@@ -205,7 +207,7 @@ shinyServer(function(input, output,session) {
if(!is.null(tree_tmp$Error)){
res = infoBox(h6(strong("Phylogenetic tree")), subtitle = h6(tree_tmp$Error),color = "red",width=NULL,fill=TRUE, icon = icon("thumbs-o-down"))
}
}
#}
}
return(res)
})
......@@ -378,7 +380,6 @@ shinyServer(function(input, output,session) {
if(!is.null(data$counts) && !is.null(data$taxo) && nrow(data$counts)>0 && nrow(data$taxo)>0 && !is.null(taxo) && taxo!="..." && !is.null(target))
{
design = GetDesign(isolate(input),target)
print(design)
ChTM = CheckTargetModel(input,target,labeled,data$counts)$Error
if(!is.null(design) && is.null(ChTM))
{
......
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