Fix R-devel change about attributes handling (#590)

etiennebacher · web-flow · commit a83e8dbfb39c · 2026-01-06T15:59:31.000-05:00
* init

* news, desc

* rename index

* double brackets
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: report
 Type: Package
 Title: Automated Reporting of Results and Statistical Models
-Version: 0.6.2
+Version: 0.6.2.1
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,9 @@
+# report (development version)
+
+Bug fixes
+
+* Patch for change in `attr()` in R-devel (#590).
+
 # report 0.6.2
 
 Bug fixes
diff --git a/R/report.lm.R b/R/report.lm.R
@@ -210,7 +210,12 @@ report_table.lm <- function(x, include_effectsize = TRUE, ...) {
     ...
   )
   if (!is.null(effsize)) {
-    attr(out, paste0(names(attributes(effsize)$ci))) <- attributes(effsize)$ci
+    new_attrs <- attributes(effsize)$ci
+    for (idx in seq_along(new_attrs)) {
+      if (!is.na(names(new_attrs)[idx])) {
+        attr(out, names(new_attrs)[idx]) <- new_attrs[[idx]]
+      }
+    }
   }
   # Add attributes from params table
   for (att in c(

Original file line number	Diff line number	Diff line change
`@@ -210,7 +210,12 @@ report_table.lm <- function(x, include_effectsize = TRUE, ...) {`
`210`	`210`	`...`
`211`	`211`	`)`
`212`	`212`	`if (!is.null(effsize)) {`
`213`		`- attr(out, paste0(names(attributes(effsize)$ci))) <- attributes(effsize)$ci`
	`213`	`+ new_attrs <- attributes(effsize)$ci`
	`214`	`+ for (idx in seq_along(new_attrs)) {`
	`215`	`+ if (!is.na(names(new_attrs)[idx])) {`
	`216`	`+ attr(out, names(new_attrs)[idx]) <- new_attrs[[idx]]`
	`217`	`+ }`
	`218`	`+ }`
`214`	`219`	`}`
`215`	`220`	`# Add attributes from params table`
`216`	`221`	`for (att in c(`