feat: grey weekend square

FRBCesab · Mar 30, 2024 · c661118 · c661118
1 parent c44a0fe
commit c661118
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/R/plot_calendar.R b/R/plot_calendar.R
@@ -280,6 +280,19 @@ plot_calendar <- function(year = format(Sys.Date(), "%Y"),
          lwd     = 0.75,
          xpd     = TRUE)
 
+    ## Add weekend ----
+
+    if (calendar[i, "weekday"] %in% c("Saturday", "Sunday")) {
+
+      rect(xleft   = calendar[i, "x"] - 1,
+           xright  = calendar[i, "x"],
+           ybottom = calendar[i, "y"] - 1,
+           ytop    = calendar[i, "y"],
+           col     = "#efefef",
+           lwd     = 0.75,
+           xpd     = TRUE)
+    }
+
 
     ## Add holidays ----