fix lintr issue

openpharma · Jul 10, 2024 · 45e0bbc · 45e0bbc
1 parent f1a60b6
commit 45e0bbc
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/interop-emmeans.R b/R/interop-emmeans.R
@@ -31,7 +31,10 @@ recover_data.mmrm <- function(object, ...) { # nolint
   # subject_var is excluded because it should not contain fixed effect.
   # visit_var is not excluded because emmeans can provide marginal mean
   # by each visit if visit_var is not spatial.
-  model_frame <- stats::model.frame(object, include = c(if (!object$formula_parts$is_spatial) "visit_var", "response_var", "group_var"))
+  model_frame <- stats::model.frame(
+    object,
+    include = c(if (!object$formula_parts$is_spatial) "visit_var", "response_var", "group_var")
+  )
   model_terms <- stats::delete.response(stats::terms(model_frame))
   emmeans::recover_data(
     fun_call,