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

Compare commits

base: R:v1.0.1
Branches Tags
R:main
R:v1.0.2 R:v1.0.1 R:v1.0.0
..
compare: R:fbeb3247af372233600f7d9ede506db6442150a5
Branches Tags
R:main
R:v1.0.2 R:v1.0.1 R:v1.0.0

2 Commits
v1.0.1 ... fbeb3247af

Author SHA1 Message Date
Craig Williams
fbeb3247af Increment version number to 1.0.2 2026-03-23 15:47:32 +00:00
Craig Williams
932bf4e5cf Fixed ordering of dates changing the calendar "view" (always show latest date) 2026-03-23 15:47:13 +00:00
2 changed files with 4 additions and 2 deletions
Expand all files Collapse all files

2
DESCRIPTION
View File

@@ -1,6 +1,6 @@
Package: AVSDevR.ShinyInputs Package: AVSDevR.ShinyInputs
Title: Provides Additional Inputs for Shiny Title: Provides Additional Inputs for Shiny
Version: 1.0.1 Version: 1.0.2
Authors@R: Authors@R:
person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre")) person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre"))
Description: Provides additional inputs which can be used in shiny Description: Provides additional inputs which can be used in shiny

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
}) })