- Bug fix

- Update install.R

app.R

@@ -280,16 +280,17 @@ server <- function(input, output, session) {
     selectInput(inputId="file", label="Or choose a file :", choices = c("",list.files(path = "./data",full.names = FALSE,recursive = FALSE)))
   })
   
-  # ## Creating a usefull object for filedata (readable & writable) and assay gestion --------
-  # wrfile <- reactive ({
-  #   wrdata <- filedata$data
-  #   if (!is.null(wrdata@assays$SCT)) {
-  #     DefaultAssay(wrdata) <- "SCT"
-  #   } else {
-  #     DefaultAssay(wrdata) <- "RNA"
-  #   }
-  #   return (wrdata)
-  # })
+  ## Creating a usefull object for filedata (readable & writable) and assay gestion --------
+  wrfile <- reactive ({
+    req(filedata$data)
+    wrdata <- filedata$data
+    if (!is.null(wrdata@assays$SCT)) {
+      DefaultAssay(wrdata) <- "SCT"
+    } else {
+      DefaultAssay(wrdata) <- "RNA"
+    }
+    return (wrdata)
+  })
   
   
   ## Graphs & one table Generations --------

install.R

@@ -23,5 +23,4 @@ devtools::install_github(repo = 'ChristophH/sctransform')
 BiocManager::install("clusterProfiler")
 BiocManager::install("MAST")    
 BiocManager::install("org.Hs.eg.db")
-BiocManager::install("PANTHER.db")
-# BiocManager::install("topGO")
\ No newline at end of file
+BiocManager::install("PANTHER.db")
\ No newline at end of file