added more exports

Author: s-fleck

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 2.1.4
-Date: 2022-10-17 06:23:27 UTC
-SHA: c1ae972993a3ff1254e684f05ff434a92b55110f
+Version: 2.1.5
+Date: 2024-11-19 13:34:15 UTC
+SHA: 8d8a8ce4444e1480d48c178c6838d18075ad3d5c

DESCRIPTION

@@ -32,7 +32,7 @@ VignetteBuilder:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.0.2.9000
+RoxygenNote: 7.0.2
 Collate: 
     'accessors.R'
     'arithmetic.R'

NAMESPACE

@@ -52,7 +52,9 @@ S3method(as_date_yw,default)
 S3method(as_date_yw,numeric)
 S3method(as_date_yw,yearweek)
 S3method(as_yearmon,date_ym)
+S3method(as_yearmon,yearmon)
 S3method(as_yearqtr,date_yq)
+S3method(as_yearqtr,yearqtr)
 S3method(as_yearweek,date_yw)
 S3method(as_yearweek,yearweek)
 S3method(c,date_xx)
@@ -89,6 +91,10 @@ S3method(get_year,date_ym)
 S3method(get_year,date_yq)
 S3method(get_year,date_yw)
 S3method(get_year,default)
+S3method(increment,date_y)
+S3method(increment,date_ym)
+S3method(increment,date_yq)
+S3method(increment,date_yw)
 S3method(last_of_isoweek,default)
 S3method(last_of_isoyear,date_yw)
 S3method(last_of_isoyear,default)
@@ -101,6 +107,10 @@ S3method(last_of_year,default)
 S3method(last_of_year,integer)
 S3method(last_of_year,numeric)
 S3method(print,date_xx)
+S3method(range,date_y)
+S3method(range,date_ym)
+S3method(range,date_yq)
+S3method(range,date_yw)
 S3method(rep,date_xx)
 S3method(round,date_ym)
 S3method(round,date_yq)
@@ -159,6 +169,7 @@ export(get_isoyear)
 export(get_month)
 export(get_quarter)
 export(get_year)
+export(increment)
 export(is_Date)
 export(is_POSIXlt)
 export(is_date_xx)

NEWS.md

@@ -1,6 +1,7 @@
 # dint 2.1.5
 
 * Minor fixes to tests due to changes in R-base
+* Export `increment()` utility function
 
 
 # dint 2.1.4

R/arithmetic.R

@@ -146,28 +146,31 @@ NULL
 # range -------------------------------------------------------------------
 
 
-
+#' @export
 range.date_yq <- function(..., na.rm = FALSE) {
   as_date_yq(range(as.integer(c(...), na.rm = na.rm)))
 }
 
 
 
 
+#' @export
 range.date_ym <- function(..., na.rm = FALSE) {
   as_date_ym(range(as.integer(c(...), na.rm = na.rm)))
 }
 
 
 
 
+#' @export
 range.date_yw <- function(..., na.rm = FALSE) {
   as_date_yw(range(as.integer(c(...), na.rm = na.rm)))
 }
 
 
 
 
+#' @export
 range.date_y <- function(..., na.rm = FALSE) {
   as_date_y(range(as.integer(c(...), na.rm = na.rm)))
 }

R/format.R

@@ -323,7 +323,6 @@ format_ym <- function(x, m = NULL, format = "%Y-M%m"){
 #' format_yw(2015, 5)
 #' format_yw(201505, format = "%Y.%V")
 #' format_yw(as_date_yw(201505), format = "%y.%V")
-#'
 format_yw <- function(
   x,
   w = NULL,

R/increment.R

@@ -3,9 +3,9 @@
 #' @param x object to increment
 #' @param inc Value by which to increment (usually integer)
 #'
+#' @export
 #' @return
 #'   An object of the same type as `x` increment by `inc`
-#' @noRd
 increment <- function(x, inc = 1){
   assert(
     is_scalar(inc) ||
@@ -20,7 +20,8 @@ increment <- function(x, inc = 1){
 
 
 
-
+#' @rdname increment
+#' @export
 increment.date_yq <- function(x, inc){
   if (is_scalar(x) && length(inc) > 1){
     x <- rep(x, length(inc))
@@ -46,6 +47,8 @@ increment.date_yq <- function(x, inc){
 
 
 
+#' @rdname increment
+#' @export
 increment.date_ym <- function(x, inc){
   if (is_scalar(x) && length(inc) > 1){
     x <- rep(x, length(inc))
@@ -71,6 +74,8 @@ increment.date_ym <- function(x, inc){
 
 
 
+#' @rdname increment
+#' @export
 increment.date_yw <- function(x, inc){
   if (is_scalar(x) && length(inc) > 1){
     x <- rep(x, length(inc))
@@ -83,6 +88,8 @@ increment.date_yw <- function(x, inc){
 
 
 
+#' @rdname increment
+#' @export
 increment.date_y <- function(x, inc){
   if (is_scalar(x) && length(inc) > 1){
     x <- rep(x, length(inc))

R/zoo-compat.R

@@ -48,6 +48,7 @@ as_yearqtr.date_yq <- function(x){
 
 
 #' @rdname as_yearqtr
+#' @export
 as_yearqtr.yearqtr <- function(x){
   x
 }
@@ -91,7 +92,7 @@ as_yearmon.date_ym <- function(x){
 
 
 
-
+#' @export
 #' @rdname as_yearqtr
 as_yearmon.yearmon <- function(x){
   x
@@ -152,12 +153,11 @@ as_yearweek.yearweek <- function(x){
 
 #' For Compatibility With zoo
 #'
-#' Internaly used constructor. If you use zoo, please use [zoo::yearweek()]
+#' Internaly used constructor. If you use zoo, please use `zoo::yearweek()`
 #' instead
 #'
 #' @param x a vector with dates in the form 2000.0 for Q1, 2000.25 for Q2, usw
 #' @noRd
-#'
 yearweek <- function(x){
   x <- as.numeric(x)
   assert(