From 6cdde0282a3950207214dde657edad1c3b986964 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 15 Mar 2022 11:38:41 +0100
Subject: [PATCH] =?UTF-8?q?Creaci=C3=B3n=20de=20una=20divisi=C3=B3n=20por?=
 =?UTF-8?q?=20paneles.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/BDAccess/app.R b/BDAccess/app.R
index ba72263..c262390 100644
--- a/BDAccess/app.R
+++ b/BDAccess/app.R
@@ -17,9 +17,12 @@ sqlInitialize(ruta="../ruta_database.R")
 ui <- fluidPage(
 
     # Application title
-    titlePanel("BDAccess"),
+    #titlePanel("BDAccess"),
     
-    sidebarLayout(
+    #sidebarLayout(
+    #Navbar
+    navbarPage("BDAccess",
+        tabPanel("Update",
             sidebarPanel(
                 selectInput("dbtype", "", selected="UM", choices=c("UM", "OV")),
                 checkboxInput(inputId = "backup", label="Backup", value=F),
@@ -43,12 +46,19 @@ ui <- fluidPage(
                     tabPanel("RNADNA",rHandsontableOutput("rna")),
                 )
             )
+        ),
+        tabPanel("Visor",
+            sidebarPanel(),
+            mainPanel()
+        )
     )
 )
 
 # Define server logic required to draw a histogram
 server <- function(input, output) {
     
+    ## Update
+    
     values <- reactiveValues()
     values[["DF"]]<-DF
     values[["samples"]]<-samples
@@ -431,6 +441,9 @@ server <- function(input, output) {
         }
     })
     
+    ## Visor
+    
+    
 }
 
 # Run the application