|
@ -19,7 +19,7 @@ rna<-data.frame("UMID"="","UM"="") |
|
|
sqlInitialize(ruta="../ruta_database.R") |
|
|
sqlInitialize(ruta="../ruta_database.R") |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# UI ---------------------------------------------------------------------- |
|
|
|
|
|
|
|
|
# UI ---- |
|
|
|
|
|
|
|
|
ui <- fluidPage( |
|
|
ui <- fluidPage( |
|
|
|
|
|
|
|
@ -30,7 +30,7 @@ ui <- fluidPage( |
|
|
#Navbar |
|
|
#Navbar |
|
|
navbarPage("BDAccess", |
|
|
navbarPage("BDAccess", |
|
|
|
|
|
|
|
|
# * Update ------------------------------------------------------------------ |
|
|
|
|
|
|
|
|
## 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")), |
|
@ -57,7 +57,7 @@ ui <- fluidPage( |
|
|
) |
|
|
) |
|
|
), |
|
|
), |
|
|
|
|
|
|
|
|
# * Visor ------------------------------------------------------------------- |
|
|
|
|
|
|
|
|
## Visor ---- |
|
|
tabPanel("Visor", |
|
|
tabPanel("Visor", |
|
|
sidebarPanel( |
|
|
sidebarPanel( |
|
|
radioButtons("nhc", label = h3("Código"), |
|
|
radioButtons("nhc", label = h3("Código"), |
|
@ -73,7 +73,7 @@ ui <- fluidPage( |
|
|
) |
|
|
) |
|
|
), |
|
|
), |
|
|
|
|
|
|
|
|
# * Citometría -------------------------------------------------------------- |
|
|
|
|
|
|
|
|
## Citometría ---- |
|
|
tabPanel("Citometría", |
|
|
tabPanel("Citometría", |
|
|
sidebarPanel( |
|
|
sidebarPanel( |
|
|
# shinyDirButton(id="cito_dir",label="Cito Dir", title="Citometría") |
|
|
# shinyDirButton(id="cito_dir",label="Cito Dir", title="Citometría") |
|
@ -92,7 +92,7 @@ ui <- fluidPage( |
|
|
) |
|
|
) |
|
|
), |
|
|
), |
|
|
|
|
|
|
|
|
# * scRNAseq ---------------------------------------------------------------- |
|
|
|
|
|
|
|
|
## scRNAseq ---- |
|
|
tabPanel("scRNAseq", |
|
|
tabPanel("scRNAseq", |
|
|
sidebarPanel( |
|
|
sidebarPanel( |
|
|
textInput("sqlquery", label = "sqlquery", value = ""), |
|
|
textInput("sqlquery", label = "sqlquery", value = ""), |
|
@ -114,9 +114,10 @@ ui <- fluidPage( |
|
|
) |
|
|
) |
|
|
|
|
|
|
|
|
# Define server logic required to draw a histogram |
|
|
# Define server logic required to draw a histogram |
|
|
|
|
|
# Server ---- |
|
|
server <- function(input, output) { |
|
|
server <- function(input, output) { |
|
|
|
|
|
|
|
|
# Update ------------------------------------------------------------------ |
|
|
|
|
|
|
|
|
## Update ---- |
|
|
|
|
|
|
|
|
values <- reactiveValues() |
|
|
values <- reactiveValues() |
|
|
values[["DF"]]<-DF |
|
|
values[["DF"]]<-DF |
|
@ -646,7 +647,7 @@ server <- function(input, output) { |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Visor ------------------------------------------------------------------- |
|
|
|
|
|
|
|
|
## Visor ---- |
|
|
|
|
|
|
|
|
output$report<-renderUI({ |
|
|
output$report<-renderUI({ |
|
|
samples<-sqlFetch(dta, "samples") |
|
|
samples<-sqlFetch(dta, "samples") |
|
@ -815,7 +816,7 @@ server <- function(input, output) { |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Citometría -------------------------------------------------------------- |
|
|
|
|
|
|
|
|
## Citometría ---- |
|
|
|
|
|
|
|
|
observe({ |
|
|
observe({ |
|
|
if(input$goButtonDir > 0){ |
|
|
if(input$goButtonDir > 0){ |
|
@ -828,7 +829,7 @@ server <- function(input, output) { |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# scRNAseq ---------------------------------------------------------------- |
|
|
|
|
|
|
|
|
## scRNAseq ---- |
|
|
|
|
|
|
|
|
output$PATID = renderUI({ |
|
|
output$PATID = renderUI({ |
|
|
observeEvent(input$goButton, {}) |
|
|
observeEvent(input$goButton, {}) |
|
|