diff --git a/NAMESPACE b/NAMESPACE index a126ccc47..60f93aba1 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -9,6 +9,7 @@ S3method("names<-",join_keys) S3method("names<-",teal_data) S3method("parents<-",join_keys) S3method("parents<-",teal_data) +S3method(all.equal,join_keys) S3method(c,join_key_set) S3method(c,join_keys) S3method(format,join_keys) diff --git a/R/testhat-helpers.R b/R/testhat-helpers.R index 52ca04b49..17ba5812e 100644 --- a/R/testhat-helpers.R +++ b/R/testhat-helpers.R @@ -19,7 +19,8 @@ #' #' @seealso [base::all.equal()] #' @keywords internal -#' +#' @method all.equal join_keys +#' @exportS3Method all.equal join_keys all.equal.join_keys <- function(target, current, ...) { .as_map <- function(.x) { old_attributes <- attributes(.x) diff --git a/man/all.equal.join_keys.Rd b/man/all.equal.join_keys.Rd index 813654397..ae8ce55c9 100644 --- a/man/all.equal.join_keys.Rd +++ b/man/all.equal.join_keys.Rd @@ -4,7 +4,7 @@ \alias{all.equal.join_keys} \title{Test if two objects are (nearly) equal} \usage{ -\method{all}{equal.join_keys}(target, current, ...) +\method{all.equal}{join_keys}(target, current, ...) } \arguments{ \item{target}{\R object.}