Browse Source

Creación de una división por paneles.

main
Costa 2 years ago
parent
commit
6cdde0282a
1 changed files with 15 additions and 2 deletions
  1. +15
    -2
      BDAccess/app.R

+ 15
- 2
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

Loading…
Cancel
Save