From 35e4d31495eda158fabda858e64ee0b99e9cee61 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 4 Apr 2022 11:35:23 +0200
Subject: [PATCH] =?UTF-8?q?Iniciar=20secci=C3=B3n=20citometr=C3=ADa.=20Bot?=
 =?UTF-8?q?=C3=B3n=20para=20el=20directorio.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BDAccess/app.R | 39 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 37 insertions(+), 2 deletions(-)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index 93491ab..32ea54d 100644
--- a/BDAccess/app.R
+++ b/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)