toastr_error(title="Error",message=paste("<h5>","This file can not be loaded.","</h5>","<br/> <br/>","<em>The loaded file is not in the Epi2me format or its format is not currently supported by SHAMAN software.</em>"),
title="What's new in SHAMAN",width=NULL,status="primary",
div(style='overflow-y: scroll; height: 550px',
addNews("Feburary 19th 2020","New feature","Shaman now support Epi2me data output. Let us know if you meet any issue."),
addNews("August 19th 2020","SHAMAN paper is out","We are really happy to announce that the paper describing in depth shaman and comparing this application to other available is out in BMC Bioinformatics. Moreover we keep improving the stability and functions of the application and we hope that we will be able to maintain this application for a long time."),
addNews("August 14th 2019","Major update","We performed a global improvement of SHAMAN. The application is now migrated to R 3.6.1. We implemented several visualization for differential analysis and network of abundance. We hope you will enjoy this new version."),
addNews("April 11th 2019","Debugging","We fixed few bugs in export system and scatterplot visualisation system."),
...
...
@@ -520,7 +521,7 @@ function(request) {
fluidRow(
box(title="Select your file format",width=3,status="success",solidHeader=TRUE,collapsible=FALSE,
# selectInput("FileFormat","",c("Count table & taxonomy (*.csv or *.tsv)"="fileCounts","BIOM file"="fileBiom","Saved project"="fileRData"),selected="fileCounts"),
selectInput("FileFormat","",c("Count table & taxonomy (*.csv or *.tsv)"="fileCounts","BIOM file"="fileBiom","Project number"="projnum"),selected="fileCounts"),
selectInput("FileFormat","",c("Count table & taxonomy (*.csv or *.tsv)"="fileCounts","BIOM file"="fileBiom","Epi2me file"="fileEpi2me","Project number"="projnum"),selected="fileCounts"),
selectInput("colorPalette",label=h6(strong("Gradient of colors")),choices=c("green-blue"="GnBu","blue-white-red"="RdBu","purple-white-orange"="PuOr","red-yellow-green"="RdYlGn"),selected="RdBu"),
fluidRow(column(width=7,colourInput("colour02",NULL,value="#1E90FF",showColour="both")),column(width=5,h6(strong("Significant for contrast 1")),style='padding:0px;')),
fluidRow(column(width=7,colourInput("colour03",NULL,value="#FF7F00",showColour="both")),column(width=5,h6(strong("Significant for contrast 2")),style='padding:0px;')),
fluidRow(column(width=7,colourInput("colour04",NULL,value="#008B00",showColour="both")),column(width=5,h6(strong("Significant for both contrasts")),style='padding:0px;')),
fluidRow(column(width=7,colourpicker::colourInput("colour02",NULL,value="#1E90FF",showColour="both")),column(width=5,h6(strong("Significant for contrast 1")),style='padding:0px;')),
fluidRow(column(width=7,colourpicker::colourInput("colour03",NULL,value="#FF7F00",showColour="both")),column(width=5,h6(strong("Significant for contrast 2")),style='padding:0px;')),
fluidRow(column(width=7,colourpicker::colourInput("colour04",NULL,value="#008B00",showColour="both")),column(width=5,h6(strong("Significant for both contrasts")),style='padding:0px;')),