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

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