Browse Source

Cambiar etiquetas.

main
marcelcosta 2 years ago
parent
commit
db6c07595c
1 changed files with 10 additions and 9 deletions
  1. +10
    -9
      BDAccess/app.R

+ 10
- 9
BDAccess/app.R

@ -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, {})

Loading…
Cancel
Save