--- a/add_expression_HPA.R	Wed Jan 22 15:20:35 2020 +0000
+++ b/add_expression_HPA.R	Wed Jan 22 15:26:11 2020 +0000
@@ -1,11 +1,7 @@
 # Read file and return file content as data.frame
 read_file <- function(path,header){
-  file <- try(read.csv(path,header=header, sep="\t",stringsAsFactors = FALSE, quote="\"", check.names = F),silent=TRUE)
-  if (inherits(file,"try-error")){
-    stop("File not found !")
-  }else{
-    return(file)
-  }
+  file <- read.csv(path,header=header, sep="\t",stringsAsFactors = FALSE, quote="\"", check.names = F)
+  return(file)
 }
 
 #convert a string to boolean
@@ -175,8 +171,7 @@
   check_ensembl_geneids(ids)
 
   # Read protein atlas
-  protein_atlas = args$atlas
-  protein_atlas = read_file(protein_atlas, T)
+  protein_atlas = read_file(args$atlas, T)
 
   # Add expression
   output = args$output