marcelcosta/BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Cambiar etiquetas.

Browse Source
This commit is contained in:
marcelcosta
2022-04-04 11:37:56 +02:00
parent 35e4d31495
commit db6c07595c
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BDAccess/app.R
+10 -9
View File
@@ -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, {})