squelch readr msgs about columns

RMI-PACTA · Aug 18, 2024 · 6aa7870 · 6aa7870
1 parent e6de821
commit 6aa7870
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/R/plot_aggregate_loanbooks.R b/R/plot_aggregate_loanbooks.R
@@ -54,15 +54,17 @@ plot_aggregate_loanbooks <- function() {
       file = file.path(
         output_path_aggregated,
         glue::glue("company_exposure_net_aggregate_alignment{file_by_group}.csv")
-      )
+      ),
+      show_col_types = FALSE
     )
 
   company_aggregated_alignment_bo_po <-
     readr::read_csv(
       file = file.path(
         output_path_aggregated,
         glue::glue("company_exposure_bo_po_aggregate_alignment{file_by_group}.csv")
-      )
+      ),
+      show_col_types = FALSE
     )
 
   ## loanbook level results----
@@ -71,15 +73,17 @@ plot_aggregate_loanbooks <- function() {
       file = file.path(
         output_path_aggregated,
         glue::glue("loanbook_exposure_bo_po_aggregate_alignment{file_by_group}.csv")
-      )
+      ),
+      show_col_types = FALSE
     )
 
   loanbook_exposure_aggregated_alignment_net <-
     readr::read_csv(
       file = file.path(
         output_path_aggregated,
         glue::glue("loanbook_exposure_net_aggregate_alignment{file_by_group}.csv")
-      )
+      ),
+      show_col_types = FALSE
     )