Cambiar etiquetas.

BDAccess/app.R

@@ -19,6 +19,8 @@ rna<-data.frame("UMID"="","UM"="")
 sqlInitialize(ruta="../ruta_database.R")
 
 
+# UI ----
+
 ui <- fluidPage(
 
     # Application title
@@ -27,6 +29,8 @@ ui <- fluidPage(
     #sidebarLayout(
     #Navbar
     navbarPage("BDAccess",
+
+## Update ----
         tabPanel("Update",
             sidebarPanel(
                 selectInput("dbtype", "", selected="UM", choices=c("UM", "OV","CC")),
@@ -52,6 +56,8 @@ ui <- fluidPage(
                 )
             )
         ),
+
+## Visor ----
         tabPanel("Visor",
             sidebarPanel(
                 radioButtons("nhc", label = h3("Código"),
@@ -66,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 = ""),
@@ -87,10 +114,11 @@ ui <- fluidPage(
 )
 
 # Define server logic required to draw a histogram
+# Server ----
 server <- function(input, output) {
-    
-    ## Update
-    
+
+## Update ----
+
     values <- reactiveValues()
     values[["DF"]]<-DF
     values[["samples"]]<-samples
@@ -618,8 +646,9 @@ server <- function(input, output) {
         }
     })
     
-    ## Visor
-    
+
+## Visor ----
+
     output$report<-renderUI({
         samples<-sqlFetch(dta, "samples")
         if (input$nhc == 1){samples_sel<-samples %>% filter(OVID == input$id)}
@@ -786,8 +815,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)