Increment version number to 1.0.2

DESCRIPTION

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

R/betterDateInput.R

@@ -19,10 +19,12 @@ formatDates <- function(value, min, max) {
     value[lubridate::ymd(value) > lubridate::ymd(dates$max)] <- dates$max
   }
   dates <- lapply(dates, format, "%Y-%m-%d")
-  value <- lapply(value, format, "%Y-%m-%d")
   dates <- lapply(dates, function(.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) {
     if (length(.x) == 0) NULL else .x
   })