br(),hr(),br(),p(em("Development Team : Jean-Baptiste ALBERGE, Jonathan CRUARD, Mathias BAGUENEAU"),br(),em("Beta-test : Benjamin DELAUNE")),
br(),p(strong("Git repository :"),a(href="https://gitlab.univ-nantes.fr/MathBgn/myelome","Shiny SChnurR"),br(),em("A complete tutorial is available at this adress."))
)
...
...
@@ -305,8 +308,8 @@ server <- function(input, output, session) {
plot1_compareData<-reactive({# Left Graph Compare page
...
...
@@ -485,7 +488,7 @@ server <- function(input, output, session) {
}
}
})
output$goplot<-renderPlot({
req(wrfile())
goplotData()
...
...
@@ -505,7 +508,7 @@ server <- function(input, output, session) {
req(!is.null(input$group_genepage))
datatable(dtgoData(),filter="top",caption=paste("Table : Markers for the following group(s) : ",paste(sapply(input$group_genepage,paste,collapse=""),collapse=" + "),"and this factor : ",input$fsel4))
})
dtontoData<-reactive({# Ontology Table
filegene<-wrfile()
...
...
@@ -589,14 +592,14 @@ server <- function(input, output, session) {
egoc<-withProgress(enrichGO(gene=genesc$ENTREZID,OrgDb="org.Hs.eg.db",keyType="ENTREZID",ont=input$ontology2,readable=TRUE),value=1,message="Ontology n°1 in progress...")
withProgress(datatable(dfo,filter="top",caption=paste("Table : Gene Ontology (",input$ontology2,") for the left selected group(s) and this factor : ",input$fsel2,"| Only takes groups with a ratio > 2/Total, p-value cutoff : 0.05")),value=1,message="Rendering Datatable...")%>%formatSignif(columns=c(3,4),digits=3)
egoc<-withProgress(enrichGO(gene=genesc$ENTREZID,OrgDb="org.Hs.eg.db",keyType="ENTREZID",ont=input$ontology2,readable=TRUE),value=1,message="Ontology n°1 in progress...")
withProgress(datatable(dfo,filter="top",caption=paste("Table : Gene Ontology (",input$ontology2,") for the left selected group(s) and this factor : ",input$fsel2,"| Only takes groups with a ratio > 2/Total, p-value cutoff : 0.05")),value=1,message="Rendering Datatable...")%>%formatSignif(columns=c(3,4),digits=3)