Browse Source

Añadir la opción de pasar la ruta de citometría en texto.

main
marcelcosta 2 years ago
parent
commit
a6f0c97d47
1 changed files with 8 additions and 3 deletions
  1. +8
    -3
      BDAccess/app.R

+ 8
- 3
BDAccess/app.R

@ -88,6 +88,7 @@ ui <- fluidPage(
tabsetPanel(
tabPanel("Entrada",
actionButton("goButtonDir","Selecciona directorio fenotipo"),
textInput("cytopath", label="Directorio fenotipo", value=""),
textOutput("session"),
hr(),
actionButton("fcsconvert", "Convertir a fcs"),
@ -969,7 +970,11 @@ server <- function(input, output) {
observe({
if(input$goButtonDir > 0){
cito_dir<<-choose.dir() %>% gsub("\\","/",. ,fixed=T) %>% paste0("/")
if (input$cytopath == ""){
cito_dir<<-choose.dir() %>% gsub("\\","/",. ,fixed=T) %>% paste0("/")
}else{
cito_dir<<-input$cytopath %>% gsub("\\","/",. ,fixed=T) %>% gsub("/$", "", .) %>% paste0("/")
}
output$session <- renderText(
cito_dir
@ -1008,8 +1013,8 @@ server <- function(input, output) {
}
if (input$phenotype == "IC"){
route<-cito_dir
route<-stringi::stri_enc_tonative(cito_dir)
ws<-open_flowjo_xml(paste0(route,"IC.wsp"))
gs<-flowjo_to_gatingset(ws, name="All Samples")

Loading…
Cancel
Save