R/onLoad.R

In trafficonese/daterangepicker: Create a Shiny Date-Range Input

#' Register an InputHandler
#' @importFrom shiny registerInputHandler
#' @noRd
.onLoad <- function(...) {
  shiny::registerInputHandler("DateRangePickerBinding", function(data, ...) {
    if (is.null(data)) {
      NULL
    } else {
      if (class(data$start) == "character" && data$start == "Invalid date") {
        NULL
      } else {
        ## Return POSIX or Date, depending on format
        if (data$format == "POSIX") {
          res <- try(as.POSIXct(c(data$start, data$end),
            origin = "1970-01-01 00:00:00"
          ),
          silent = TRUE
          )
        } else {
          res <- try(as.Date(c(data$start, data$end)), silent = TRUE)
        }
        if ("try-error" %in% class(res)) {
          warning("Failed to parse dates!")
          data
        } else {
          res
        }
      }
    }
  }, force = TRUE)
}