From 0e9220c6b9132602a3d69e4be582a02da8b07822 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 26 Oct 2022 14:13:09 +0200
Subject: Really test anova output, test covariates

---
 R/saem.R | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'R')

diff --git a/R/saem.R b/R/saem.R
index 79b4b9ee..cf67b8e1 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -738,6 +738,11 @@ update.saem.mmkin <- function(object, ..., evaluate = TRUE) {
   # so we need to fix this so we do not have to export saem.mmkin in
   # addition to the S3 method
   call[[1]] <- saem
+
+  # We also need to provide the mmkin object in the call, so it
+  # will also be found when called by testthat or pkgdown
+  call[[2]] <- object$mmkin
+
   update_arguments <- match.call(expand.dots = FALSE)$...
 
   if (length(update_arguments) > 0) {
-- 
cgit v1.2.1