Updating fread's file.info argument to avoid uname and udomain lookup.

ProfFancyPants · ProfFancyPants · commit 60a01fa65191 · 2025-04-25T10:01:38.000-04:00
Addresses issue: #6918
diff --git a/R/fread.R b/R/fread.R
@@ -88,7 +88,7 @@ yaml=FALSE, tmpdir=tempdir(), tz="UTC")
       on.exit(unlink(tmpFile), add=TRUE)
       # nocov end
     }
-    file_info = file.info(file)
+    file_info = file.info(file, extra_cols=FALSE)
     if (is.na(file_info$size)) stopf("File '%s' does not exist or is non-readable. getwd()=='%s'", file, getwd())
     if (isTRUE(file_info$isdir)) stopf("File '%s' is a directory. Not yet implemented.", file) # Could use dir.exists(), but we already ran file.info().
     if (!file_info$size) {

Original file line number	Diff line number	Diff line change
`@@ -88,7 +88,7 @@ yaml=FALSE, tmpdir=tempdir(), tz="UTC")`
`88`	`88`	`on.exit(unlink(tmpFile), add=TRUE)`
`89`	`89`	`# nocov end`
`90`	`90`	`}`
`91`		`- file_info = file.info(file)`
	`91`	`+ file_info = file.info(file, extra_cols=FALSE)`
`92`	`92`	`if (is.na(file_info$size)) stopf("File '%s' does not exist or is non-readable. getwd()=='%s'", file, getwd())`
`93`	`93`	`if (isTRUE(file_info$isdir)) stopf("File '%s' is a directory. Not yet implemented.", file) # Could use dir.exists(), but we already ran file.info().`
`94`	`94`	`if (!file_info$size) {`