From 38aa06c4ee32d9a1868d8116a772b44df00f5794 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 4 Apr 2022 11:34:43 +0200
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20etiquetas=20para=20el=20c=C3=B3di?=
 =?UTF-8?q?go.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BDAccess/app.R | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index bbbc7e6..93491ab 100644
--- a/BDAccess/app.R
+++ b/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"),
@@ -88,9 +94,9 @@ ui <- fluidPage(
 
 # Define server logic required to draw a histogram
 server <- function(input, output) {
-    
-    ## Update
-    
+
+# Update ------------------------------------------------------------------
+
     values <- reactiveValues()
     values[["DF"]]<-DF
     values[["samples"]]<-samples
@@ -618,8 +624,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)}