diff --git a/vizapp/global.R b/vizapp/global.R
index d00424ce97ae1fb493ce1d43a2912b309e669980..6f794734d26b748cbd45a1095d21cd8accd5fef2 100644
--- a/vizapp/global.R
+++ b/vizapp/global.R
@@ -1 +1 @@
-data.dir <- Sys.getenv('outputDir')
+data.dir <- paste0(Sys.getenv('outputDir'),"/")
\ No newline at end of file
diff --git a/vizapp/ui.R b/vizapp/ui.R
index 0c0bc785622122f655742949bb361261390197bd..35b05708c2df0849f21f08c9950083b898c27915 100644
--- a/vizapp/ui.R
+++ b/vizapp/ui.R
@@ -14,7 +14,7 @@ shinyUI(
         conditionalPanel(condition="input.operation=='Survival'",
                          selectInput("cancerType2","Select a cancer type",
                                      choices = substr(list.files(paste0(data.dir,"Expression/"),pattern=".txt"),1,
-                                                      nchar(list.files(paste0(data.dir,"Expression/)",pattern=".txt"))-4)),
+                                                      nchar(list.files(paste0(data.dir,"Expression/"),pattern=".txt"))-4)),
                          textInput("gene2","Please input one gene of interest",placeholder = "Gene name ie BRCA1"),
                          selectInput("operation2","Select automatic or manual cutoff", choices = c("Automatic", "Manual"))