cosw/gemfin-shiny
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pfad geändert

Browse Source 
Merge branch 'main' of https://git.oswaldonline.de/cosw/gemfin-shiny

# Conflicts:
#	db/data_transfer.R
#	db/development.sqlite
#	www/documents/1028.jpg
#	www/documents/1069.PDF
This commit is contained in:
Christian Oswald
2026-06-19 11:12:34 +02:00
parent f960e390d9 e28c8b6a9c
commit 479f455f86
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/postings/buchungen_mod.R
+1 -2
View File
@@ -193,11 +193,10 @@ buchungenServer <- function(id, conn, r_global) {
## *** Anhänge anzeigen ---- ## *** Anhänge anzeigen ----
tagList(lapply(seq_len(nrow(att)), function(i) { tagList(lapply(seq_len(nrow(att)), function(i) {
ext <- tools::file_ext(att$original_name[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 ---- ## *** Anhang öffnen ----
observeEvent(input[[paste0("open_att_", att$id[i])]], { observeEvent(input[[paste0("open_att_", att$id[i])]], {
browser()
showModal(modalDialog( showModal(modalDialog(
tags$iframe(src = filename, width = "100%", height = "600px", tags$iframe(src = filename, width = "100%", height = "600px",
style = "border:none;"), style = "border:none;"),
R/umsatz/bank_connections.R
+2 -1
View File
@@ -26,4 +26,5 @@ resolve_contact <- function(conn, empfaenger_name, empfaenger_konto) {
select(contact_id) %>% select(contact_id) %>%
collect() collect()
if (nrow(bc) > 0) bc$contact_id[1] else NA_integer_ if (nrow(bc) > 0) bc$contact_id[1] else NA_integer_
} }