fix path bug in chipseq vizapp

vizapp/server.R

@@ -23,7 +23,7 @@ shinyServer(function(input, output, session) {
       files <- list.files(path = rootdir, pattern = ".bed")
       cat("\nBed files found:\n\n")
      
-      filenames <- as.list(paste0(rootdir, files));
+      filenames <- as.list(paste0(rootdir, '/', files));
       names(filenames) <- files;
       print(filenames)