Commit c7510a6d authored by Stevenn Volant's avatar Stevenn Volant
Browse files

ajout genefilter

parent a80d1414
## Function for the rdp format
getval <- function(annotation_rdp, interest, threshold_annot){
annotation_rdp = unlist(strsplit(annotation_rdp,"\t"))
......
......@@ -62,6 +62,11 @@ if (!require(rNVD3)) {
library(rNVD3)
}
if (!require(genefilter)) {
install.packages('genefilter')
library(genefilter)
}
# Allow to upload 50M files
options(shiny.maxRequestSize=50*1024^2)
source("internal.R")
......
if(!require(shinydashboard)){
install.packages('shinydashboard')
library(shinydashboard)
......@@ -60,6 +59,11 @@ if (!require(ade4)) {
library(ade4)
}
if (!require(genefilter)) {
install.packages('genefilter')
library(genefilter)
}
sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Home", tabName = "Home", icon = icon("home")),
......@@ -84,7 +88,7 @@ body <- dashboardBody(
The PCOA is performed with the", a("ade4 R package",href="http://pbil.univ-lyon1.fr/ade4/"), "and plots are generated with", a("ggplot2",href="http://ggplot2.org/"), "or", a("D3.js packages",href="http://d3js.org/"), ".
A presentation about SHAMAN is available", a("here",target="_blank",href="shaman_presentation.pdf"),style = "font-family: 'times'; font-si16pt"),
p("Hereafter is the global workflow of the SHAMAN application:"),
img(src = "Workflow.png",width = "100%",style="max-width: 1000px")
div(img(src = "Workflow.png",width = "100%",style="max-width: 600px"),Align="center")
),
tabPanel("Authors", h3("The main contributors to SHAMAN:"),
p(a("Stevenn Volant", href="mailto:stevenn.volant@pasteur.fr"), "(Initiator, coding, testing, documentation, evaluation)"),
......
Supports Markdown
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