Undo length.path export

hadley · hadley · commit 867750ab1ec5 · 2026-02-12T17:40:05.000-06:00
Turns out that vcr depends on the existing (buggy) behaviour
diff --git a/NAMESPACE b/NAMESPACE
@@ -20,7 +20,6 @@ S3method(headers,response)
 S3method(http_error,character)
 S3method(http_error,integer)
 S3method(http_error,response)
-S3method(length,path)
 S3method(print,cache_info)
 S3method(print,handle)
 S3method(print,oauth_app)
diff --git a/R/write-function.R b/R/write-function.R
@@ -90,6 +90,8 @@ request_fetch.write_stream <- function(x, url, handle) {
 }
 
 path <- function(x) structure(x, class = "path")
-#' @export
+
+# Can't export this method: 
+#' @exportS3Method NULL
 length.path <- function(x) file.info(x)$size
 is.path <- function(x) inherits(x, "path")

Original file line number	Diff line number	Diff line change
`@@ -90,6 +90,8 @@ request_fetch.write_stream <- function(x, url, handle) {`
`90`	`90`	`}`
`91`	`91`
`92`	`92`	`path <- function(x) structure(x, class = "path")`
`93`		`-#' @export`
	`93`	`+`
	`94`	`+# Can't export this method:`
	`95`	`+#' @exportS3Method NULL`
`94`	`96`	`length.path <- function(x) file.info(x)$size`
`95`	`97`	`is.path <- function(x) inherits(x, "path")`