|
@ -19,6 +19,8 @@ rna<-data.frame("UMID"="","UM"="") |
|
|
sqlInitialize(ruta="../ruta_database.R") |
|
|
sqlInitialize(ruta="../ruta_database.R") |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# UI ---------------------------------------------------------------------- |
|
|
|
|
|
|
|
|
ui <- fluidPage( |
|
|
ui <- fluidPage( |
|
|
|
|
|
|
|
|
# Application title |
|
|
# Application title |
|
@ -27,6 +29,8 @@ ui <- fluidPage( |
|
|
#sidebarLayout( |
|
|
#sidebarLayout( |
|
|
#Navbar |
|
|
#Navbar |
|
|
navbarPage("BDAccess", |
|
|
navbarPage("BDAccess", |
|
|
|
|
|
|
|
|
|
|
|
# * Update ------------------------------------------------------------------ |
|
|
tabPanel("Update", |
|
|
tabPanel("Update", |
|
|
sidebarPanel( |
|
|
sidebarPanel( |
|
|
selectInput("dbtype", "", selected="UM", choices=c("UM", "OV","CC")), |
|
|
selectInput("dbtype", "", selected="UM", choices=c("UM", "OV","CC")), |
|
@ -52,6 +56,8 @@ ui <- fluidPage( |
|
|
) |
|
|
) |
|
|
) |
|
|
) |
|
|
), |
|
|
), |
|
|
|
|
|
|
|
|
|
|
|
# * Visor ------------------------------------------------------------------- |
|
|
tabPanel("Visor", |
|
|
tabPanel("Visor", |
|
|
sidebarPanel( |
|
|
sidebarPanel( |
|
|
radioButtons("nhc", label = h3("Código"), |
|
|
radioButtons("nhc", label = h3("Código"), |
|
@ -88,9 +94,9 @@ ui <- fluidPage( |
|
|
|
|
|
|
|
|
# Define server logic required to draw a histogram |
|
|
# Define server logic required to draw a histogram |
|
|
server <- function(input, output) { |
|
|
server <- function(input, output) { |
|
|
|
|
|
|
|
|
## Update |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Update ------------------------------------------------------------------ |
|
|
|
|
|
|
|
|
values <- reactiveValues() |
|
|
values <- reactiveValues() |
|
|
values[["DF"]]<-DF |
|
|
values[["DF"]]<-DF |
|
|
values[["samples"]]<-samples |
|
|
values[["samples"]]<-samples |
|
@ -618,8 +624,9 @@ server <- function(input, output) { |
|
|
} |
|
|
} |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|
## Visor |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Visor ------------------------------------------------------------------- |
|
|
|
|
|
|
|
|
output$report<-renderUI({ |
|
|
output$report<-renderUI({ |
|
|
samples<-sqlFetch(dta, "samples") |
|
|
samples<-sqlFetch(dta, "samples") |
|
|
if (input$nhc == 1){samples_sel<-samples %>% filter(OVID == input$id)} |
|
|
if (input$nhc == 1){samples_sel<-samples %>% filter(OVID == input$id)} |
|
|