diff --git a/R/postings/buchungen_mod.R b/R/postings/buchungen_mod.R index 72e4ba7..0dca1f5 100755 --- a/R/postings/buchungen_mod.R +++ b/R/postings/buchungen_mod.R @@ -193,11 +193,10 @@ buchungenServer <- function(id, conn, r_global) { ## *** Anhänge anzeigen ---- tagList(lapply(seq_len(nrow(att)), function(i) { ext <- tools::file_ext(att$original_name[i]) - filename <- paste0("www/documents/", att$id[i], ".", ext) + filename <- paste0("documents/", att$id[i], ".", ext) ## *** Anhang öffnen ---- observeEvent(input[[paste0("open_att_", att$id[i])]], { - browser() showModal(modalDialog( tags$iframe(src = filename, width = "100%", height = "600px", style = "border:none;"), diff --git a/R/umsatz/bank_connections.R b/R/umsatz/bank_connections.R index 64cfd27..d4fede3 100755 --- a/R/umsatz/bank_connections.R +++ b/R/umsatz/bank_connections.R @@ -26,4 +26,5 @@ resolve_contact <- function(conn, empfaenger_name, empfaenger_konto) { select(contact_id) %>% collect() if (nrow(bc) > 0) bc$contact_id[1] else NA_integer_ -} \ No newline at end of file +} +