From 04a4feab2df6374197b85f12a5074641ceb79027 Mon Sep 17 00:00:00 2001
From: DrEspresso <Constantin.Sluka@usb.ch>
Date: Tue, 7 May 2024 11:04:21 +0200
Subject: [PATCH] Parse CSV enclosure character from header before separator is
 parsed

---
 R/read_export_options.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/read_export_options.R b/R/read_export_options.R
index 0ff58487..58bb3f09 100644
--- a/R/read_export_options.R
+++ b/R/read_export_options.R
@@ -164,7 +164,7 @@ read_export_options <- function(data_dir) {
     meta_available[entry] <- .construct_metaname(entry, meta_names, file_tag, file_extension) %in% files$Name
   }
 
-  # find form data separator ----
+  # find form data separator and enclosure ----
   if (is_zip) {
     file_con <- unz(data_dir, files$Name[!grepl("html$", files$Name)][1])
     header <- readLines(file_con, 1)
@@ -172,6 +172,8 @@ read_export_options <- function(data_dir) {
   } else if (!is_zip) {
     header <- readLines(file.path(data_dir, files$Name[!grepl("html$", files$Name)][1]), 1)
   }
+  quote <- substr(header, 1, 1)
+  header <- gsub(quote,1,1)
   if (grepl(",", header)) {
     sep <- ","
   } else if (grepl("'", header)) {