|
|
@ -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) |
|
|
|