From 204a766b59e1f065bc1c15c7712c89aa268f8e74 Mon Sep 17 00:00:00 2001
From: Earo Wang <earo.wang@gmail.com>
Date: Tue, 12 Mar 2024 16:30:38 +1100
Subject: [PATCH] on cran

---
 CRAN-SUBMISSION    | 3 +++
 R/frame-calendar.R | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)
 create mode 100644 CRAN-SUBMISSION

diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
new file mode 100644
index 0000000..83ea78f
--- /dev/null
+++ b/CRAN-SUBMISSION
@@ -0,0 +1,3 @@
+Version: 0.2.9
+Date: 2024-03-12 00:50:57 UTC
+SHA: 2bdc7f99c4fa84ea78c32a3a7c5b002e64612530
diff --git a/R/frame-calendar.R b/R/frame-calendar.R
index 1514cb3..3bc09c8 100644
--- a/R/frame-calendar.R
+++ b/R/frame-calendar.R
@@ -383,12 +383,12 @@ assign_grids <- function(ROW, COL, width, height, polar = FALSE) {
 }
 
 # Compute grid lines and text labels for frame_calendar()
-gen_reference <- function(grids, dir = "h", ...) {
+gen_reference <- function(grids, margin, dir = "h", week_start = 1, ...) {
   dir <- match.arg(dir, c("h", "v"))
   UseMethod("gen_reference")
 }
 
-gen_reference.daily <- function(grids, dir = "h", ...) {
+gen_reference.daily <- function(grids, margin, dir = "h", week_start = 1, ...) {
   # day breaks
   minor_breaks <- gen_day_breaks(grids)
   min_width <- min_diff(minor_breaks$x)
@@ -430,7 +430,7 @@ gen_reference.daily <- function(grids, dir = "h", ...) {
   list(breaks = NULL, minor_breaks = minor_breaks, label = mtext, text = dtext)
 }
 
-gen_reference.weekly <- function(grids, dir = "h", ...) {
+gen_reference.weekly <- function(grids, margin, dir = "h", week_start = 1, ...) {
   # day breaks
   minor_breaks <- gen_day_breaks(grids)
   min_width <- min_diff(minor_breaks$x)