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