From 6a0bdcb7c255100703053119f0079dbddf0dfabd Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Tue, 19 May 2020 08:20:18 -0500
Subject: [PATCH] Export vec_arith.haven_labelled as method

---
 NAMESPACE                       | 1 +
 R/labelled.R                    | 2 ++
 man/vec_arith.haven_labelled.Rd | 2 +-
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NAMESPACE b/NAMESPACE
index 9b5fd5eb..3ccf9f3e 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -13,6 +13,7 @@ S3method(levels,haven_labelled)
 S3method(obj_print_footer,haven_labelled)
 S3method(obj_print_footer,haven_labelled_spss)
 S3method(obj_print_header,haven_labelled)
+S3method(vec_arith,haven_labelled)
 S3method(vec_arith.haven_labelled,default)
 S3method(vec_arith.haven_labelled,haven_labelled)
 S3method(vec_arith.haven_labelled,numeric)
diff --git a/R/labelled.R b/R/labelled.R
index ceeac643..c6793532 100644
--- a/R/labelled.R
+++ b/R/labelled.R
@@ -271,6 +271,8 @@ vec_cast.haven_labelled.haven_labelled <- function(x, to, ..., x_arg = "", to_ar
 #' Internal vctrs methods
 #'
 #' @keywords internal
+#' @export vec_arith.haven_labelled
+#' @method vec_arith haven_labelled
 #' @export
 vec_arith.haven_labelled <- function(op, x, y, ...) {
   UseMethod("vec_arith.haven_labelled", y)
diff --git a/man/vec_arith.haven_labelled.Rd b/man/vec_arith.haven_labelled.Rd
index b83035bf..93c08ce2 100644
--- a/man/vec_arith.haven_labelled.Rd
+++ b/man/vec_arith.haven_labelled.Rd
@@ -4,7 +4,7 @@
 \alias{vec_arith.haven_labelled}
 \title{Internal vctrs methods}
 \usage{
-vec_arith.haven_labelled(op, x, y, ...)
+\method{vec_arith}{haven_labelled}(op, x, y, ...)
 }
 \description{
 Internal vctrs methods