lintr

easystats · Oct 4, 2023 · b6a118b · b6a118b
1 parent 96a544a
commit b6a118b
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/r2.R b/R/r2.R
@@ -562,12 +562,10 @@ r2.gam <- function(model, ...) {
   # gamlss inherits from gam, and summary.gamlss prints results automatically
   printout <- utils::capture.output(s <- summary(model)) # nolint
 
-  if (!is.null(s$r.sq)) {
-    list(
-      R2 = c(`Adjusted R2` = s$r.sq)
-    )
-  } else {
+  if (is.null(s$r.sq)) {
     NextMethod()
+  } else {
+    list(R2 = c(`Adjusted R2` = s$r.sq))
   }
 }