fix logic (#87)

RMI-PACTA · Apr 9, 2024 · 323a73e · 323a73e
1 parent 4d4cb57
commit 323a73e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_csv_specs.R b/R/get_csv_specs.R
@@ -199,7 +199,7 @@ get_csv_specs <- function(files, expected_colnames = c("Investor.Name", "Portfol
 
   files_df$grouping_mark <- guess_grouping_mark(filepaths = files_df$filepath)
 
-  if (all(!is.na(files_df$grouping_mark) && files_df$grouping_mark == ",")) {
+  if (all(!is.na(files_df$grouping_mark)) && all(files_df$grouping_mark == ",")) {
     cli::cli_alert_success(paste0("all files use {.strong ", cli::style_inverse(","), "} for a grouping mark"))
   } else {
     alert_files <- files_df$filename[is.na(files_df$grouping_mark) || grepl("^[,]$", files_df$grouping_mark)]