Creación de una división por paneles.

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