Browse Source

Iniciar sección citometría. Botón para el directorio.

main
marcelcosta 2 years ago
parent
commit
35e4d31495
1 changed files with 37 additions and 2 deletions
  1. +37
    -2
      BDAccess/app.R

+ 37
- 2
BDAccess/app.R

@ -72,6 +72,27 @@ ui <- fluidPage(
tableOutput("nitrogen")
)
),
# * Citometría --------------------------------------------------------------
tabPanel("Citometría",
sidebarPanel(
# shinyDirButton(id="cito_dir",label="Cito Dir", title="Citometría")
# fileInput(inputId = "cito_dir", label = "Cito Dir", multiple = F)
),
mainPanel(
actionButton("goButtonDir","load session to analyze"),
textOutput("session")
# tabsetPanel(
# tabPanel("Table", tableOutput("sc_table")),
# tabPanel("Plots",
# plotOutput("sc_plot", height = "1000px"),
# plotOutput("sc_expr"), height = "600px")
# )
)
),
# * scRNAseq ----------------------------------------------------------------
tabPanel("scRNAseq",
sidebarPanel(
textInput("sqlquery", label = "sqlquery", value = ""),
@ -793,8 +814,22 @@ server <- function(input, output) {
})
## scRNAseq
# Citometría --------------------------------------------------------------
observe({
if(input$goButtonDir > 0){
cito_dir<<-choose.dir() %>% gsub("\\","/",. ,fixed=T)
output$session <- renderText(
cito_dir
)
}
})
# scRNAseq ----------------------------------------------------------------
output$PATID = renderUI({
observeEvent(input$goButton, {})
sc_cod<-sqlFetch(dta, "CNAG") %>% pull(CODIGO)

Loading…
Cancel
Save