Export missing S3 method

hadley · hadley · commit c64689836e7e · 2023-04-26T15:10:22.000-05:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -86,6 +86,7 @@ S3method(xml_find_all,xml_nodeset)
 S3method(xml_find_chr,xml_missing)
 S3method(xml_find_chr,xml_node)
 S3method(xml_find_chr,xml_nodeset)
+S3method(xml_find_first,xml_missing)
 S3method(xml_find_first,xml_node)
 S3method(xml_find_first,xml_nodeset)
 S3method(xml_find_lgl,xml_missing)
diff --git a/R/xml_find.R b/R/xml_find.R
@@ -113,6 +113,7 @@ xml_find_first <- function(x, xpath, ns = xml_ns(x)) {
   UseMethod("xml_find_first")
 }
 
+#' @export
 xml_find_first.xml_missing <- function(x, xpath, ns = xml_ns(x)) {
   xml_missing()
 }
@@ -121,7 +122,7 @@ xml_find_first.xml_missing <- function(x, xpath, ns = xml_ns(x)) {
 xml_find_first.xml_node <- function(x, xpath, ns = xml_ns(x)) {
   res <- .Call(xpath_search, x$node, x$doc, xpath, ns, 1)
   if (length(res) == 1) {
-     res[[1]]
+    res[[1]]
   } else {
     res
   }

Original file line number	Diff line number	Diff line change
`@@ -113,6 +113,7 @@ xml_find_first <- function(x, xpath, ns = xml_ns(x)) {`
`113`	`113`	`UseMethod("xml_find_first")`
`114`	`114`	`}`
`115`	`115`
	`116`	`+#' @export`
`116`	`117`	`xml_find_first.xml_missing <- function(x, xpath, ns = xml_ns(x)) {`
`117`	`118`	`xml_missing()`
`118`	`119`	`}`
`@@ -121,7 +122,7 @@ xml_find_first.xml_missing <- function(x, xpath, ns = xml_ns(x)) {`
`121`	`122`	`xml_find_first.xml_node <- function(x, xpath, ns = xml_ns(x)) {`
`122`	`123`	`res <- .Call(xpath_search, x$node, x$doc, xpath, ns, 1)`
`123`	`124`	`if (length(res) == 1) {`
`124`		`- res[[1]]`
	`125`	`+ res[[1]]`
`125`	`126`	`} else {`
`126`	`127`	`res`
`127`	`128`	`}`