adopt the ternary form of S3methods for our instance of rep.int

gregorkastner · Mar 10, 2023 · 4415671 · 4415671
1 parent 89eab5d
commit 4415671
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -52,7 +52,7 @@ S3method(range,sv_inverse_gamma)
 S3method(range,sv_multinormal)
 S3method(range,sv_normal)
 S3method(rep,sv_normal)
-S3method(rep.int,sv_normal)
+S3method(rep.int,sv_normal,rep_int_sv_normal)
 S3method(rep_len,sv_normal)
 S3method(residuals,svdraws)
 S3method(summary,svdraws)

diff --git a/R/util.R b/R/util.R
@@ -226,9 +226,8 @@ rep.sv_normal <- function (x, times = length.out, length.out = times, ...) {
   }
   rep_len(x, length.out = length.out)
 }
-#' @method rep.int sv_normal
-#' @export
-rep.int.sv_normal <- function (x, times) {
+#' @rawNamespace S3method(rep.int,sv_normal,rep_int_sv_normal)
+rep_int_sv_normal <- function (x, times) {
   rep_len(x, length.out = times)
 }
 #' @method rep_len sv_normal