Unable to add special days / special colors with a custom start/end date

[parkerbailey]

If the user is passing in dates for the from = and to = arguments, they'll be presented with the following error from geom_tile():

Error in `geom_tile()`:
! Problem while computing aesthetics.
i Error occurred in the 1st layer.
Caused by error in `check_aesthetics()`:
! Aesthetics must be either length 1 or the same as the data (110).
x Fix the following mappings: `fill`.
Backtrace:
  1. base (local) `<fn>`(x)
  2. ggplot2:::print.ggplot(x)
  4. ggplot2:::ggplot_build.ggplot(x)
  5. ggplot2:::by_layer(...)
 12. ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 13. l$compute_aesthetics(d, plot)
 14. ggplot2 (local) compute_aesthetics(..., self = self)
 15. ggplot2:::check_aesthetics(evaled, n)

This would suggest that use of a date-restricted calendar view along with special days and colors are not supported concurrently. Example of the code I used when this error was discovered:

events <- c(254, 262, 268, 276, 296, 305, 319, 324, 344, 345, 346, 347, 348, 351, 352, 353)

calendR(
  from = "2024-09-01",
  to = today(),
  special.days = events,
  special.col = "pink"
)