Override reported column width by 40%

eddelbuettel · Jul 5, 2024 · dfb6e7b · dfb6e7b
1 parent 45b7d96
commit dfb6e7b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/examples/deadliners.r b/inst/examples/deadliners.r
@@ -18,7 +18,7 @@ db <- as.data.frame(tools::CRAN_package_db())
 dd <- with(db, db[!is.na(Deadline), c("Package", "Version", "Deadline")])
 dd <- with(dd, dd[order(Deadline, Package), ])
 
-cols <- if (nzchar(Sys.which("tput"))) as.integer(system("tput cols", intern=TRUE)) else 80L
+cols <- if (nzchar(Sys.which("tput"))) 1.4*as.integer(system("tput cols", intern=TRUE)) else 80L
 dts <- unique(dd[, "Deadline"])
 for (d in seq_along(dts)) {
     cat(.blue(dts[d]), ": ", sep="")