fix check_chr error message to reflect new argument name

ethanbass · Aug 22, 2024 · fc42e4e · fc42e4e
1 parent fa65460
commit fc42e4e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -138,13 +138,13 @@ get_lambda_idx <- function(lambda, lambdas, y, allow_max = TRUE){
 check_chr <- function(chr, loc = NULL, peak_table, chrom_list, allow_max = TRUE){
   if (chr == 'max'){
     if (allow_max){
-      chr <- which.max(peak_table$tab[,loc])
+      chr <- which.max(peak_table$tab[, loc])
     } else{
       stop("Chromatogram must be specified for scan function.")
     }
   }
   if (is.character(chr) & !(chr %in% names(chrom_list))){
-    stop("Chromatogram not found. Check `chr` argument!")
+    stop("Chromatogram not found. Please check `idx` argument and try again!")
   }
   chr
 }