Gdr 2854

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")),

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

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)

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"