Iniciar sección citometría. Botón para el directorio.

BDAccess/app.R

@@ -72,6 +72,27 @@ ui <- fluidPage(
                 tableOutput("nitrogen")
             )
         ),
+
+# * Citometría --------------------------------------------------------------
+        tabPanel("Citometría",
+                 sidebarPanel(
+                     # shinyDirButton(id="cito_dir",label="Cito Dir", title="Citometría")
+                     
+                     # fileInput(inputId = "cito_dir", label = "Cito Dir", multiple = F)
+                 ),
+                 mainPanel(
+                     actionButton("goButtonDir","load session to analyze"),
+                     textOutput("session")
+                     # tabsetPanel(
+                     #     tabPanel("Table", tableOutput("sc_table")),
+                     #     tabPanel("Plots", 
+                     #              plotOutput("sc_plot", height = "1000px"),
+                     #              plotOutput("sc_expr"), height = "600px")
+                     # )
+                 )
+        ),
+
+# * scRNAseq ----------------------------------------------------------------
         tabPanel("scRNAseq",
                  sidebarPanel(
                      textInput("sqlquery", label = "sqlquery", value = ""),
@@ -793,8 +814,22 @@ server <- function(input, output) {
 
     })
     
-    ## scRNAseq
-    
+
+# Citometría --------------------------------------------------------------
+
+    observe({
+        if(input$goButtonDir > 0){
+            cito_dir<<-choose.dir() %>% gsub("\\","/",. ,fixed=T)
+
+            output$session <- renderText(
+                    cito_dir
+                )
+        }
+    })
+
+
+# scRNAseq ----------------------------------------------------------------
+
     output$PATID = renderUI({
         observeEvent(input$goButton, {})
         sc_cod<-sqlFetch(dta, "CNAG") %>% pull(CODIGO)