From 5ed0a3aa4670cf5fda94d35674979c3ca5385269 Mon Sep 17 00:00:00 2001 From: hornik Date: Tue, 27 Jun 2023 10:58:12 +0000 Subject: [PATCH] numeric_version() wants character inputs. git-svn-id: https://svn.r-project.org/R/trunk@84608 00db46b3-68df-0310-9c12-caf00c1e9a41 --- tests/reg-tests-1e.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/reg-tests-1e.R b/tests/reg-tests-1e.R index 67f935ad22b..26aad005531 100644 --- a/tests/reg-tests-1e.R +++ b/tests/reg-tests-1e.R @@ -382,7 +382,7 @@ cls <- c("raw", "logical", "integer", "numeric", "complex", names(cls) <- cls be <- baseenv() asF <- lapply(cls, \(cl) be[[paste0("as.",cl)]] %||% be[[cl]]) -obs <- lapply(cls, \(cl) asF[[cl]](switch(cl, "difftime" = "2:1:0", "noquote" = letters, 1:2))) +obs <- lapply(cls, \(cl) asF[[cl]](switch(cl, "difftime" = "2:1:0", "noquote" = letters, "numeric_version" = as.character(1:2), 1:2))) asDF <- lapply(cls, \(cl) getVaW(be[[paste0("as.data.frame.", cl)]](obs[[cl]]))) r <- local({ g <- as.data.frame.logical; f <- function(L=TRUE) g(L) getVaW(f()) })