diff --git a/README.md b/README.md index 7895b3a5df9fe2748035dde042255fe5f2e7c52e..ea55c5b0a670a64787ea23a4fc6e9cc14e061469 100644 --- a/README.md +++ b/README.md @@ -197,6 +197,11 @@ Hub-CDB and Institut Pasteur ## WHAT'S NEW IN +### v14.2.0 + +1) One bug removed + + ### v14.1.0 1) One bug removed diff --git a/cnr_curation_voc_qc.R b/cnr_curation_voc_qc.R index 3761cc5e6704fbaf39007dabb61eb4fa9d4000aa..1206d41e81c45508b8ab9b0c0e2d409e46767714 100644 --- a/cnr_curation_voc_qc.R +++ b/cnr_curation_voc_qc.R @@ -247,7 +247,7 @@ file.import.fun <- function( script_fun ){ if( ! file.exists(paste0(in.path_fun, "/", path_fun, "/", sample_fun, file_fun))){ - stop(paste0("FILE DOES NOT EXISTS:\n", voc.file.path)) + stop(paste0("FILE DOES NOT EXISTS:\n", paste0(in.path_fun, "/", path_fun, "/", sample_fun, file_fun))) } output <- read.table(gzfile(paste0(in.path_fun, "/", path_fun, "/", sample_fun, file_fun)), header = FALSE, sep = "\t", stringsAsFactors = FALSE, comment.char = "#", check.names = FALSE, colClasses = "character") # cannot take the header because it starts by a # if(ncol(output) != 10){