on cran

Author: earowang

CRAN-SUBMISSION

@@ -0,0 +1,3 @@
+Version: 0.2.9
+Date: 2024-03-12 00:50:57 UTC
+SHA: 2bdc7f99c4fa84ea78c32a3a7c5b002e64612530

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)