110 lines
3.6 KiB
R
110 lines
3.6 KiB
R
ACTION_TYPES <- c(
|
|
"Mittelwand geben" = "mittelwand",
|
|
"Fütterung" = "futterung",
|
|
"Ablegerbildung" = "ablegerbildung",
|
|
"Brutentnahme" = "brutentnahme",
|
|
"Standwechsel" = "standwechsel",
|
|
"Völkervereinigung" = "vereinigung",
|
|
"Zwischenbödenableger" = "zwischenbodenableger",
|
|
"Sonstiges" = "sonstig"
|
|
)
|
|
|
|
screen_bulk_action_ui <- function(id) {
|
|
ns <- NS(id)
|
|
shiny::tagList(
|
|
section_card(NULL,
|
|
shiny::div(class = "py-2",
|
|
shiny::dateInput(ns("date"), "Datum", value = Sys.Date(), language = "de", weekstart = 1),
|
|
shiny::selectInput(ns("type"), "Maßnahme", choices = ACTION_TYPES),
|
|
shiny::textAreaInput(ns("notes"), "Notizen", rows = 2, width = "100%")
|
|
)
|
|
),
|
|
section_card("Völker",
|
|
shiny::div(class = "d-flex gap-2 py-2 border-bottom",
|
|
shiny::tags$button(
|
|
type = "button", class = "btn btn-outline-secondary btn-sm",
|
|
onclick = sprintf("Shiny.setInputValue('%s', Date.now(), {priority:'event'})", ns("sel_all")),
|
|
"Alle"
|
|
),
|
|
shiny::tags$button(
|
|
type = "button", class = "btn btn-outline-secondary btn-sm",
|
|
onclick = sprintf("Shiny.setInputValue('%s', Date.now(), {priority:'event'})", ns("sel_none")),
|
|
"Keine"
|
|
)
|
|
),
|
|
shiny::uiOutput(ns("colony_checkboxes"))
|
|
),
|
|
shiny::div(class = "d-grid mt-2 mb-5",
|
|
shiny::actionButton(ns("save"), "Speichern", class = "btn btn-primary btn-lg")
|
|
)
|
|
)
|
|
}
|
|
|
|
screen_bulk_action_server <- function(id, db, nav) {
|
|
moduleServer(id, function(input, output, session) {
|
|
ns <- session$ns
|
|
|
|
colonies <- reactive({
|
|
req(nav$apiary_id, nav$screen == "bulk_action")
|
|
db_colonies_list(db, apiary_id = nav$apiary_id, include_closed = FALSE)
|
|
})
|
|
|
|
colony_choices <- reactive({
|
|
cols <- colonies()
|
|
if (nrow(cols) == 0) return(character(0))
|
|
setNames(as.character(cols$id), cols$name)
|
|
})
|
|
|
|
output$colony_checkboxes <- renderUI({
|
|
ch <- colony_choices()
|
|
if (length(ch) == 0)
|
|
return(shiny::p(class = "text-muted py-2", "Keine aktiven Völker."))
|
|
shiny::checkboxGroupInput(ns("selected"), NULL,
|
|
choices = ch, selected = ch)
|
|
})
|
|
|
|
observeEvent(input$sel_all, {
|
|
shiny::updateCheckboxGroupInput(session, "selected",
|
|
selected = colony_choices())
|
|
}, ignoreNULL = TRUE, ignoreInit = TRUE)
|
|
|
|
observeEvent(input$sel_none, {
|
|
shiny::updateCheckboxGroupInput(session, "selected", selected = character(0))
|
|
}, ignoreNULL = TRUE, ignoreInit = TRUE)
|
|
|
|
observeEvent(input$save, {
|
|
selected <- input$selected
|
|
if (is.null(selected) || length(selected) == 0) {
|
|
shiny::showNotification("Kein Volk ausgewählt.", type = "warning", duration = 3)
|
|
return()
|
|
}
|
|
|
|
notes <- trimws(input$notes %||% "")
|
|
n_saved <- 0L
|
|
|
|
for (cid_str in selected) {
|
|
cid <- as.integer(cid_str)
|
|
tryCatch({
|
|
db_actions_insert(db,
|
|
colony_id = cid,
|
|
date = input$date,
|
|
type = input$type,
|
|
notes = if (nchar(notes) > 0) notes else NA_character_
|
|
)
|
|
n_saved <- n_saved + 1L
|
|
log_debug("bulk_action_saved", colony_id = cid, type = input$type)
|
|
}, error = function(e) {
|
|
log_error("bulk_action_error", colony_id = cid, msg = conditionMessage(e))
|
|
})
|
|
}
|
|
|
|
if (n_saved > 0)
|
|
shiny::showNotification(
|
|
sprintf("Maßnahme für %d Volk/Völker gespeichert.", n_saved),
|
|
type = "message", duration = 3
|
|
)
|
|
nav$screen <- "colonies"
|
|
})
|
|
})
|
|
}
|