Small fix to add quote as data input option in shinyapp

gavieira · Nov 13, 2023 · 13f342f · 13f342f
1 parent 262723b
commit 13f342f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/biblioverApp/server.R b/inst/biblioverApp/server.R
@@ -34,7 +34,7 @@ server <- function(input, output, session) {
       sep <- input[[paste0("sep", i)]]
       quote <- input[[paste0("quote", i)]]
 
-      df <- read_input_file(filepath, sep) # Read the CSV file and store it in a data frame
+      df <- read_input_file(filepath, sep, quote) # Read the CSV file and store it in a data frame
       all_sets[[set_name]] <- df # Assign the data frame to the named list
     }
     return(all_sets)