tune factor(<integer|logical>)

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

Author: smeyer

src/library/base/R/factor.R

@@ -1,7 +1,7 @@
 #  File src/library/base/R/factor.R
 #  Part of the R package, https://www.R-project.org
 #
-#  Copyright (C) 1995-2022 The R Core Team
+#  Copyright (C) 1995-2025 The R Core Team
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -21,13 +21,17 @@ factor <- function(x = character(), levels, labels = levels,
 {
     if(is.null(x)) x <- character()
     nx <- names(x)
+    matchAsChar <- is.object(x) ||
+        !(is.character(x) || is.integer(x) || is.logical(x))
     if (missing(levels)) {
 	y <- unique(x, nmax = nmax)
 	ind <- order(y)
-	levels <- unique(as.character(y)[ind])
+	if (matchAsChar)
+	    y <- as.character(y)
+	levels <- unique(y[ind])
     }
     force(ordered) # check if original x is an ordered factor
-    if(!is.character(x))
+    if (matchAsChar)
 	x <- as.character(x)
     ## levels could be a long vector, but match will not handle that.
     levels <- levels[is.na(match(levels, exclude))]