diff --git a/DESCRIPTION b/DESCRIPTION index f7e787f..8f87679 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: gDRimport Type: Package Title: Package for handling the import of dose-response data -Version: 1.9.5 -Date: 2025-12-17 +Version: 1.9.6 +Date: 2026-01-27 Authors@R: c( person("Arkadiusz", "Gladki", role=c("aut", "cre"), email="gladki.arkadiusz@gmail.com", comment = c(ORCID = "0000-0002-7059-6378")), diff --git a/NEWS.md b/NEWS.md index 781ba68..29d1422 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,6 @@ +## gDRimport 1.9.6 - 2025-12-27 +* extend support for csv EnVision format + ## gDRimport 1.9.5 - 2025-12-17 * add support broad_id in PRISM data * add suport for combo data in private prism data diff --git a/R/load_files.R b/R/load_files.R index 5a93d2e..1ae83b3 100755 --- a/R/load_files.R +++ b/R/load_files.R @@ -1588,9 +1588,10 @@ read_in_EnVision_file <- function(file, nrows, seps) { results.list <- list() current.line <- 1 - while (length(line <- - readLines(con, n = 1, warn = FALSE)) > 0 && current.line < nrows) { - results.list[[current.line]] <- line + + while (length(line <- readLines(con, n = 1, warn = FALSE)) > 0 && current.line < nrows) { + cleaned.line <- gsub("=\"([^\"]*)\"", "\\1", line) + results.list[[current.line]] <- cleaned.line current.line <- current.line + 1 } close(con) diff --git a/R/utils.R b/R/utils.R index 2288bf7..a10e94d 100644 --- a/R/utils.R +++ b/R/utils.R @@ -74,7 +74,7 @@ detect_file_format <- function(results_file) { } else if ("Repeat Barcode" %in% c( do.call(paste, results_data[, 2:3]), paste(names(results_data[, 2:3]), collapse = " ") - )) { + ) || any(grepl("Repeat,Barcode", results_data[, 1]))) { "EnVision" } else { "long_tsv"