use only is.numeric(x)

Mukulyadav2004 · web-flow · commit ea91282210ba · 2025-08-15T22:56:18.000+05:30
diff --git a/R/fwrite.R b/R/fwrite.R
@@ -43,7 +43,7 @@ fwrite = function(x, file="", append=FALSE, quote="auto",
   }
   # Handle select argument using .shallow()
   if (!is.null(select)) {
-    cols = if (is.integer(select) || is.numeric(select)) {  # numeric/integer avoids O(#cols) name-match overhead
+    cols = if (is.numeric(x)) {  # numeric/integer avoids O(#cols) name-match overhead
         as.integer(select)
     } else {
         colnamesInt(x, select)

Original file line number	Diff line number	Diff line change
`@@ -43,7 +43,7 @@ fwrite = function(x, file="", append=FALSE, quote="auto",`
`43`	`43`	`}`
`44`	`44`	`# Handle select argument using .shallow()`
`45`	`45`	`if (!is.null(select)) {`
`46`		`- cols = if (is.integer(select) \|\| is.numeric(select)) { # numeric/integer avoids O(#cols) name-match overhead`
	`46`	`+ cols = if (is.numeric(x)) { # numeric/integer avoids O(#cols) name-match overhead`
`47`	`47`	`as.integer(select)`
`48`	`48`	`} else {`
`49`	`49`	`colnamesInt(x, select)`