Merge pull request #89 from globalgov/develop

v0.5.2

Author: jhollway

.Rbuildignore

@@ -14,3 +14,4 @@
 ^CRAN-SUBMISSION$
 ^article$
 ^.DS_Store$
+^next$

.gitignore

@@ -15,4 +15,5 @@ article/jsslogo.jpg
 article/references.bib
 article/article_files
 vignettes-old
+next
 

DESCRIPTION

@@ -9,8 +9,8 @@ Description: Contains a set of tools for constructing and coercing
   date ranges, and sets of dates. 
   This is useful for describing and analysing temporal information,
   whether historical or recent, where date precision may vary.
-Version: 0.5.1
-Date: 2025-02-25
+Version: 0.5.2
+Date: 2025-03-07
 Authors@R: 
     c(person(given = "James",
              family = "Hollway",

NAMESPACE

@@ -22,8 +22,8 @@ S3method(as.Date,mdate)
 S3method(as.POSIXct,mdate)
 S3method(as.POSIXlt,mdate)
 S3method(as.data.frame,mdate)
+S3method(as.double,mdate)
 S3method(as.list,mdate)
-S3method(as.numeric,mdate)
 S3method(as_messydate,Date)
 S3method(as_messydate,POSIXct)
 S3method(as_messydate,POSIXlt)
@@ -39,13 +39,18 @@ S3method(messyduration,character)
 S3method(messyduration,mdate)
 S3method(min,mdate)
 S3method(modal,mdate)
-S3method(mreport,default)
 S3method(print,mdate)
 S3method(print,mdates_duration)
-S3method(print,mreport)
+S3method(random,character)
 S3method(random,mdate)
 S3method(rep,mdate)
 S3method(seq,mdate)
+S3method(vmax,mdate)
+S3method(vmean,mdate)
+S3method(vmedian,mdate)
+S3method(vmin,mdate)
+S3method(vmodal,mdate)
+S3method(vrandom,mdate)
 export("%><%")
 export("%>=<%")
 export("%g%")
@@ -77,7 +82,6 @@ export(mdate)
 export(messyduration)
 export(modal)
 export(month)
-export(mreport)
 export(new_messydate)
 export(new_messyduration)
 export(on_or_after)
@@ -86,8 +90,13 @@ export(precision)
 export(random)
 export(validate_messydate)
 export(validate_messyduration)
+export(vmax)
+export(vmean)
+export(vmedian)
+export(vmin)
+export(vmodal)
+export(vrandom)
 export(year)
-importFrom(dplyr,"%>%")
 importFrom(dplyr,first)
 importFrom(dplyr,last)
 importFrom(dplyr,lead)
@@ -99,7 +108,6 @@ importFrom(lubridate,ymd)
 importFrom(purrr,map)
 importFrom(purrr,pmap_chr)
 importFrom(stats,median)
-importFrom(stats,na.omit)
 importFrom(stringi,stri_detect_regex)
 importFrom(stringi,stri_extract_all_regex)
 importFrom(stringi,stri_replace_all_fixed)

NEWS.md

@@ -1,3 +1,30 @@
+# messydates 0.5.2
+
+## Package
+
+- Moved `mreport()` to `{manydata}`
+- Consolidated and renamed scripts internally
+
+## Coerce to
+
+- Fixed pkgdown#2855 by fixing how as_messydate methods interpret infinite dates
+- Fixed time zone defaults in `as.POSIXct.mdate()` and `as.POSIXlt.mdate()`
+- Fixed set bug in `validate_messydate()`
+
+## Coerce from
+
+- Renamed `as.numeric()` to `as.double()` to fix S3 dispatching
+- Separated extrema functions into `min.mdate()` and `max.mdate()` for summaries 
+and `vmin.mdate()` and `vmax.mdate()` for vector coercion
+- Separated tendency functions into `mean.mdate()`, `median.mdate()`, and `modal.mdate()` for summaries 
+and `vmean.mdate()`, `vmedian.mdate()`, and `vmodal.mdate()` for vector coercion
+- Vector coercion previously in `random.mdate()` now in `vrandom.mdate()`
+- Improved how coercion/resolution functions handle BCE dates
+
+## Manipulation
+
+- Fixed how `precision()` calculates precision
+
 # messydates 0.5.1
 
 ## Package

R/class.R

@@ -12,29 +12,23 @@
 #' @param approx_range Range to expand approximate dates, in days.
 #'   If 3, for example, adds 3 days; if -3, removes 3 days from both sides.
 #' @return Object of class `description`
-#' @name duration_class
+#' @name class_duration
 #' @examples
 #' messyduration(as_messydate(c("2010-01-01..2010-12-31", "2010-01..2010-12")))
 NULL
 
-#' @rdname duration_class
+#' @rdname class_duration
 #' @export
 new_messyduration <- function(x = character()) {
   stopifnot(is.character(x))
   structure(x, class = "mdates_duration")
 }
 
-#' @importFrom utils str
-#' @export
-print.mdates_duration <- function(x, ...) {
-  str(x)
-}
-
-#' @rdname duration_class
+#' @rdname class_duration
 #' @export
 messyduration <- function(x, approx_range = 0) UseMethod("messyduration")
 
-#' @rdname duration_class
+#' @rdname class_duration
 #' @export
 validate_messyduration <- function(x, approx_range = 0) {
   if (any(!grepl("\\.\\.", x))) {
@@ -43,7 +37,7 @@ validate_messyduration <- function(x, approx_range = 0) {
   }
 }
 
-#' @rdname duration_class
+#' @rdname class_duration
 #' @export
 messyduration.character <- function(x, approx_range = 0) {
   message("Converting to mdate class.")
@@ -53,7 +47,7 @@ messyduration.character <- function(x, approx_range = 0) {
   new_messyduration(x)
 }
 
-#' @rdname duration_class
+#' @rdname class_duration
 #' @export
 messyduration.mdate <- function(x, approx_range = 0) {
   validate_messyduration(x)