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"),
@@ -89,7 +95,7 @@ ui <- fluidPage(
 # Define server logic required to draw a histogram
 server <- function(input, output) {
 
-    ## Update
+# Update ------------------------------------------------------------------
 
     values <- reactiveValues()
     values[["DF"]]<-DF
@@ -618,7 +624,8 @@ server <- function(input, output) {
         }
     })
     
-    ## Visor
+
+# Visor -------------------------------------------------------------------
 
     output$report<-renderUI({
         samples<-sqlFetch(dta, "samples")