update

app.R

@@ -105,9 +105,9 @@ ui <- fluidPage(
                            
                            
                            
-                           ))
+                           )
               
-      ),
+      )),
       tabItem(tabName = "genelist", h1("Precisions"), br(),
               fluidRow(  box(width=6,status = "primary", solidHeader = TRUE,
                            collapsible = FALSE, title="Metastatic",h2("Gene lists"),
@@ -142,7 +142,14 @@ ui <- fluidPage(
                                   reactableOutput('P_GSEA_S1'),
                                   br(),  h4("Mouse 2"),
                                   reactableOutput('P_GSEA_S2'))))
-              )
+              ), 
+              fluidRow(box(
+                
+                width=12,status = "success", solidHeader = TRUE,
+                collapsible = FALSE, title="Common to cell lines", 
+                htmlOutput("IntersectionList", inline = TRUE)
+                
+              ))
               
               
               
@@ -361,6 +368,19 @@ server <- function(input, output) {
   })
   
   
+  output$IntersectionList <- renderUI ({
+    validate(
+      need( length(comp_P()[[1]])!=0 &  length(comp_M()[[1]])!=0 , "No common genes"),
+    )
+    markdown(paste(  "* **In common genes**:" , 
+                     capture.output(pander::pander(intersect(Genes_graphique_P(),
+                                                            Genes_graphique_M())
+                                                            
+                                                            )), collapse="\n "))
+  })
+  
+  
+  
   output$myownlist <- renderUI({
     checkboxInput("myownlist","Filtre manuel",value=FALSE)
   })