##
## Datum: 2024-10-17_11-38 
## Name: Christian Oswald
## Projekt:  etatverwaltung
## Datei:  f_airdatepicker.R
## Kommentar: Funktionen für den Airdatepicker
##

## * Update unter Berücksichtigung nicht vorhandern Werte
f_updateAirdate <- function(session, id, wert){
  if(is.na(wert)){
    updateAirDateInput(session, id, clear = TRUE)
  }else{
    updateAirDateInput(session, id, value = wert)
  }
}

## * Format für den Picker
f_airdatepicker_UI <- function(id, label, value) {
  ns <- NS(id)
  airDatepickerInput(
    id,
    label = label, 
    value = value, 
    width = "100%",
    update_on = "close",
    readonly = FALSE,  # Manuelle Eingabe erlauben
    onkeydown = "Shiny.setInputValue(this.id, this.value, {priority: 'event'});",  # Übergabe an Shiny
    
    
    todayButton = T)
}

# f_airdatepicker_UI(id, label, value)