Update shiny app

LamineTourelab · Apr 5, 2024 · a7203b3 · a7203b3
1 parent 49fd5fa
commit a7203b3
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/Data Visualization/Shiny App in genomics/shiny-app-for-genomics-data.R b/Data Visualization/Shiny App in genomics/shiny-app-for-genomics-data.R
@@ -596,7 +596,18 @@ dashbody <- dashboardBody(
     ),
     # ================================================================================  BD Rhapsody
     tabItem(
-      tabName = 'rhapsody'
+      tabName = 'rhapsody',
+      fluidPage(
+        sidebarLayout(
+          sidebarPanel(width = 3, 
+                       p(style="text-align: justify;",
+                         "Here you can upload you own data by changing the mode test-data to own.", br(), "Maximum size = 50MB"),
+                       selectInput("datasetrhapsody", "Choose a dataset:", choices = c("test-data", "own")),
+                       p(style="text-align: justify;","The uploading data should be the .RDS output results of Seven Bridges platform."),
+                       fileInput(inputId = 'filediff', 'Seurat RDS file from SevenBridges',
+                                 accept=c('rds', '.rds')),
+
+          ),
     )
     # ================================================================================  
   ) #tabItems