forward method instead of NextMethod

Enchufa2 · Enchufa2 · commit fc0583a453db · 2025-12-15T13:42:30.000+01:00
diff --git a/R/summaries.R b/R/summaries.R
@@ -24,7 +24,7 @@ print.units = function (x, ...) {
     cat("Units: ", paste0(gr[1], as.character(attr(x, "units")), gr[2]), "\n", sep = "")
     x_next <- drop_units(x)
     attr(x_next, "pillar") <- NULL
-    NextMethod(x=x_next)
+    print(x_next, ...)
   } else {
     cat(format(x, ...), "\n", sep="")
   }

Original file line number	Diff line number	Diff line change
`@@ -24,7 +24,7 @@ print.units = function (x, ...) {`
`24`	`24`	`cat("Units: ", paste0(gr[1], as.character(attr(x, "units")), gr[2]), "\n", sep = "")`
`25`	`25`	`x_next <- drop_units(x)`
`26`	`26`	`attr(x_next, "pillar") <- NULL`
`27`		`- NextMethod(x=x_next)`
	`27`	`+ print(x_next, ...)`
`28`	`28`	`} else {`
`29`	`29`	`cat(format(x, ...), "\n", sep="")`
`30`	`30`	`}`