Cambiar etiquetas.

BDAccess/app.R

@@ -19,7 +19,7 @@ rna<-data.frame("UMID"="","UM"="")
 sqlInitialize(ruta="../ruta_database.R")
 
 
-# UI ----------------------------------------------------------------------
+# UI ----
 
 ui <- fluidPage(
 
@@ -30,7 +30,7 @@ ui <- fluidPage(
     #Navbar
     navbarPage("BDAccess",
 
-# * Update ------------------------------------------------------------------
+## Update ----
         tabPanel("Update",
             sidebarPanel(
                 selectInput("dbtype", "", selected="UM", choices=c("UM", "OV","CC")),
@@ -57,7 +57,7 @@ ui <- fluidPage(
             )
         ),
 
-# * Visor -------------------------------------------------------------------
+## Visor ----
         tabPanel("Visor",
             sidebarPanel(
                 radioButtons("nhc", label = h3("Código"),
@@ -73,7 +73,7 @@ ui <- fluidPage(
             )
         ),
 
-# * Citometría --------------------------------------------------------------
+## Citometría ----
         tabPanel("Citometría",
                  sidebarPanel(
                      # shinyDirButton(id="cito_dir",label="Cito Dir", title="Citometría")
@@ -92,7 +92,7 @@ ui <- fluidPage(
                  )
         ),
 
-# * scRNAseq ----------------------------------------------------------------
+## scRNAseq ----
         tabPanel("scRNAseq",
                  sidebarPanel(
                      textInput("sqlquery", label = "sqlquery", value = ""),
@@ -114,9 +114,10 @@ ui <- fluidPage(
 )
 
 # Define server logic required to draw a histogram
+# Server ----
 server <- function(input, output) {
 
-# Update ------------------------------------------------------------------
+## Update ----
 
     values <- reactiveValues()
     values[["DF"]]<-DF
@@ -646,7 +647,7 @@ server <- function(input, output) {
     })
     
 
-# Visor -------------------------------------------------------------------
+## Visor ----
 
     output$report<-renderUI({
         samples<-sqlFetch(dta, "samples")
@@ -815,7 +816,7 @@ server <- function(input, output) {
     })
     
 
-# Citometría --------------------------------------------------------------
+## Citometría ----
 
     observe({
         if(input$goButtonDir > 0){
@@ -828,7 +829,7 @@ server <- function(input, output) {
     })
 
 
-# scRNAseq ----------------------------------------------------------------
+## scRNAseq ----
 
     output$PATID = renderUI({
         observeEvent(input$goButton, {})