Añadir etiquetas para el código.

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)}