R/AVSDevR.ShinyInputs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed ordering of dates changing the calendar "view" (always show latest date)

Browse Source
This commit is contained in:
Craig Williams
2026-03-23 15:47:13 +00:00
parent 7b0a0ac311
commit 932bf4e5cf
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/betterDateInput.R
View File

@@ -19,10 +19,12 @@ formatDates <- function(value, min, max) {
value[lubridate::ymd(value) > lubridate::ymd(dates$max)] <- dates$max value[lubridate::ymd(value) > lubridate::ymd(dates$max)] <- dates$max
} }
dates <- lapply(dates, format, "%Y-%m-%d") dates <- lapply(dates, format, "%Y-%m-%d")
value <- lapply(value, format, "%Y-%m-%d")
dates <- lapply(dates, function(.x) { dates <- lapply(dates, function(.x) {
if (length(.x) == 0) NULL else .x if (length(.x) == 0) NULL else .x
}) })
sort_order <- sort(as.numeric(value), index.return = TRUE, na.last = FALSE)$ix
value <- value[sort_order]
value <- lapply(value, format, "%Y-%m-%d")
value <- lapply(value, function(.x) { value <- lapply(value, function(.x) {
if (length(.x) == 0) NULL else .x if (length(.x) == 0) NULL else .x
}) })