|
|
@ -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 |
|
|
|