cat entfernt
This commit is contained in:
@@ -80,7 +80,6 @@ accountsServer <- function(id, conn, r_global) {
|
||||
# ── Gewähltes Konto ────────────────────────────────────────────────────────
|
||||
selected_name <- reactive({
|
||||
sel <- get_selected(input$account_tree, format = "names")
|
||||
cat("raw selected:", paste(sel, collapse=", "), "\n")
|
||||
if (length(sel) == 0) return(NULL)
|
||||
name <- sub(" \\(\\d+\\)$", "", sel[[1]])
|
||||
cat("cleaned name:", name, "\n")
|
||||
|
||||
Reference in New Issue
Block a user