36 lines
846 B
R
Executable File
36 lines
846 B
R
Executable File
##
|
|
## 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)
|
|
|