new mtfrm.Date() for speed

git-svn-id: https://svn.r-project.org/R/trunk@88356 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

doc/NEWS.Rd

@@ -157,6 +157,9 @@
       instead of hardwired \code{1e-5}; consequently, \code{ts(.., ts.eps=*)}
       now passes \code{ts.eps} to the \code{"tsp"} setting C code;
       both fixing a long-standing \sQuote{\I{FIXME}}.
+
+      \item \code{<Date> \%in\% set} has become as fast again, as it was
+      before \R 4.3.0, via new S3 method \code{mtfrm.Date}.
     }
   }
 }

src/library/base/R/match.R

@@ -85,12 +85,12 @@ char.expand <- function(input, target, nomatch = stop("no match"))
 mtfrm <- function(x)
     UseMethod("mtfrm")
 
-# also for "Date"
 mtfrm.default <- function(x) {
     if(length(y <- as.character(x)) != length(x))
         stop("cannot mtfrm")
     y
 }
 
+mtfrm.Date <- # <- for speed
 mtfrm.POSIXct <-
 mtfrm.POSIXlt <- function(x) as.vector(x, "any")

src/library/base/man/mtfrm.Rd

@@ -1,12 +1,13 @@
 % File src/library/base/man/mtfrm.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 2021-2023 R Core Team
+% Copyright 2021-2025 R Core Team
 % Distributed under GPL 2 or later
 
 \name{mtfrm}
 \title{Auxiliary Function for Matching}
 \alias{mtfrm}
 \alias{mtfrm.default}
+\alias{mtfrm.Date}
 \alias{mtfrm.POSIXct}
 \alias{mtfrm.POSIXlt}
 \description{