Fix unique col naming issue with tibble

KWB-R · Jun 28, 2024 · 7fec900 · 7fec900
1 parent 7f5fb24
commit 7fec900
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/read_balance.R b/R/read_balance.R
@@ -62,10 +62,12 @@ balance <- do.call(rbind, lapply(float_numbers_list, function(x) {
   length(x) <- 3  # Setze die Länge auf 3, um sicherzustellen, dass alle Einträge drei Spalten haben
   return(x)
 })) %>%
-  tibble::as_tibble()
+  as.data.frame()
 
-names(balance) <- sprintf("id_%d", subregion_ids)
+# Erstellen eindeutiger Spaltennamen
+colnames(balance) <- make.names(sprintf("id_%d", subregion_ids), unique = TRUE)
 
+balance <- tibble::as_tibble(balance)
 
 parvals <- block_sel_txt[bal_id_start:bal_id_end] %>%
   stringr::str_remove_all("-?\\d*\\.\\d+(?:E[+-]?\\d+)?") %>%
@@ -97,3 +99,4 @@ dplyr::bind_cols(tibble::tibble(time = time,
 
 
 }
+