diff --git a/ascii_alignment_pileup.R b/ascii_alignment_pileup.R index 6d019b466934090b4078a7a937f0fbdd7baa42c6..ff7bb87493c2afd8ec26a2400dd7a61632ce3781 100755 --- a/ascii_alignment_pileup.R +++ b/ascii_alignment_pileup.R @@ -128,7 +128,7 @@ option_list <- list( "--prefix", action="store", type="character", - default="", + default=NULL, help="Prefix to be used in the output file name(s). If not provided the input BAM file(s) name will be used instead,", metavar="string" @@ -197,7 +197,7 @@ if (! is.null(fl.ref)) {ref <- FaFile(fl.ref)} if (! is.null(fl.anno)) {anno <- import(con=fl.anno)} # Get file prefix from BAM files or from CLI argument -fl.prefix <- if (prefix.out != "") prefix.out else paste(basename(file_path_sans_ext(fl.bam)), collapse=".") +fl.prefix <- if (! is.null(prefix.out)) prefix.out else paste(basename(file_path_sans_ext(fl.bam)), collapse=".") #---> <---# # Print status message