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)