From 045c764eb8338748eb2a67eaff2e7db42122a40b Mon Sep 17 00:00:00 2001 From: Bo Burla Date: Fri, 21 Jun 2024 14:08:53 +0800 Subject: [PATCH] remove browser() --- R/read-msdata.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/read-msdata.R b/R/read-msdata.R index b26a17c..4729bd1 100644 --- a/R/read-msdata.R +++ b/R/read-msdata.R @@ -36,7 +36,8 @@ import_analysis <- function(data, path, import_function, file_ext) { file_paths <- fs::path_tidy(path) else file_paths <- fs::dir_ls(path, glob = file_ext) - #browser() + + if(!all(fs::file_exists(file_paths))) stop("One or more given files do not exist. Please check file paths.") if(any(duplicated(file_paths))) stop("One or more given files are replicated. Please check file paths.") @@ -131,7 +132,6 @@ read_masshunter_csv <- function(path, expand_qualifier_names = TRUE, silent = FA int_quantifiers <- NULL - browser() # if parameter set, then use prefix the feature name and modify the qualifier name if (!expand_qualifier_names) { @@ -175,7 +175,6 @@ read_masshunter_csv <- function(path, expand_qualifier_names = TRUE, silent = FA colnames(datWide) <- paste(datWide[2, ], datWide[1, ], sep = "\t") datWide <- datWide[-1:-2, ] - browser() # prefix columns from Method and Results Group datWide <- datWide |> dplyr::rename_with(.fn = ~ stringr::str_c("Method_",.x), .cols = dplyr::ends_with(" Method")) |>