diff --git a/R/postings/buchungen_mod.R b/R/postings/buchungen_mod.R index 991402c..29293fa 100755 --- a/R/postings/buchungen_mod.R +++ b/R/postings/buchungen_mod.R @@ -123,8 +123,7 @@ buchungenServer <- function(id, conn, r_global) { observeEvent(input$save_trans, { req(sel_details()) n_rows <- nrow(sel_details()) - - # Alle Zeilen in einer Liste sammeln + # Alle Zeilen in einer Liste sammeln all_records <- lapply(1:n_rows, function(ind) { data.frame( id = as.integer(input[[paste0("id_", ind)]]), @@ -135,10 +134,19 @@ buchungenServer <- function(id, conn, r_global) { stringsAsFactors = FALSE ) }) - - # Zu einem großen Dataframe zusammenfügen + # Zu einem großen Dataframe zusammenfügen final_df <- do.call(rbind, all_records) - browser() + + + + + + + + + + + # Datenbank-Update-Logik tryCatch({