fix copy/paste bug

DrEspresso · May 13, 2024 · f11a958 · f11a958
1 parent 04a4fea
commit f11a958
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/read_export_options.R b/R/read_export_options.R
@@ -173,7 +173,7 @@ read_export_options <- function(data_dir) {
     header <- readLines(file.path(data_dir, files$Name[!grepl("html$", files$Name)][1]), 1)
   }
   quote <- substr(header, 1, 1)
-  header <- gsub(quote,1,1)
+  header <- gsub(quote, "" , header)
   if (grepl(",", header)) {
     sep <- ","
   } else if (grepl("'", header)) {