Remove print debugging 🤦‍♂️

thomasp85 · thomasp85 · commit bd06392db747 · 2025-08-27T12:15:36.000+02:00
diff --git a/R/aaa.R b/R/aaa.R
@@ -25,7 +25,6 @@ as_bigpts <- function(x, width = TRUE) {
   type <- grid::unitType(x)
   val <- as.numeric(x) * bigpts_mod[match(type, bigpts_mod_unit)]
   if (anyNA(val)) {
-    cat("MUST CALL GRID\n")
     nas <- which(is.na(val))
     val[nas] <- if (width) convertWidth(x[nas], "bigpts", TRUE) else convertHeight(x[nas], "bigpts", TRUE)
   }

Original file line number	Diff line number	Diff line change
`@@ -25,7 +25,6 @@ as_bigpts <- function(x, width = TRUE) {`
`25`	`25`	`type <- grid::unitType(x)`
`26`	`26`	`val <- as.numeric(x) * bigpts_mod[match(type, bigpts_mod_unit)]`
`27`	`27`	`if (anyNA(val)) {`
`28`		`- cat("MUST CALL GRID\n")`
`29`	`28`	`nas <- which(is.na(val))`
`30`	`29`	`val[nas] <- if (width) convertWidth(x[nas], "bigpts", TRUE) else convertHeight(x[nas], "bigpts", TRUE)`
`31`	`30`	`}`