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

Loading…
Cancel
Save