From 4b96c144f15ed66b64e206ad4e371f1cf5b0a38e Mon Sep 17 00:00:00 2001 From: "Muckenhuber, Markus" Date: Wed, 4 Oct 2023 10:29:28 +0200 Subject: [PATCH] Change the way sample sheet file path are read in --- R/prepare_input_regions_helper.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/prepare_input_regions_helper.R b/R/prepare_input_regions_helper.R index 7263812..25dab9e 100644 --- a/R/prepare_input_regions_helper.R +++ b/R/prepare_input_regions_helper.R @@ -134,7 +134,8 @@ load_input_regions <- function(data) { ### -----------------------------------------------------------------------### ## Test if provided file paths in input do exist - if (!all(file.exists(data$file_path))) { + if (!all(file.exists(system.file(package = "peakCombiner", + data$file_path)))) { # show error message independent of parameter show_messages options("rlib_message_verbosity" = "default") @@ -233,7 +234,8 @@ load_input_regions <- function(data) { file_path = data$file_path ) |> dplyr::mutate( - input_file = purrr::map(.data$file_path, + input_file = purrr::map(system.file(package = "peakCombiner", + .data$file_path), readr::read_tsv, col_names = colnames_input, .progress = FALSE,