use lubridate

DESCRIPTION

@@ -36,6 +36,7 @@ Imports:
     glue (>= 1.0.0),
     grid,
     lifecycle (>= 0.2.0),
+    lubridate,
     magrittr (>= 1.5),
     methods,
     nestcolor (>= 0.1.1),

NAMESPACE

@@ -254,6 +254,7 @@ importFrom(glue,glue)
 importFrom(grid,stringWidth)
 importFrom(grid,unit)
 importFrom(lifecycle,deprecated)
+importFrom(lubridate,date)
 importFrom(magrittr,"%>%")
 importFrom(methods,is)
 importFrom(methods,setValidity)

R/package.R

@@ -12,6 +12,7 @@
 #' @importFrom grid stringWidth unit
 #' @importFrom glue glue
 #' @importFrom lifecycle deprecated
+#' @importFrom lubridate date
 #' @importFrom magrittr %>%
 #' @importFrom methods is setValidity
 #' @importFrom nestcolor color_palette

R/utils.R

@@ -442,7 +442,13 @@ listing_format_chevron <- function() {
 #'
 format_date <- function(date_format = "%d%b%Y") {
   function(x, ...) {
-    toupper(strftime(x, format = date_format))
+    toupper(
+      format(
+        # Extract the date at the location of the measure, not at the location of the System.
+        lubridate::date(x),
+        date_format
+      )
+    )
   }
 }