Tweak deadliners display width

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2025-04-23  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/examples/deadliners.r: Adjust screen width for display
+
 2025-04-22  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/examples/r2u.r: Update source of 'last updated' info for p3m

inst/examples/deadliners.r

@@ -2,7 +2,7 @@
 #
 # Minimal 'Deadline' field printer from CRAN db
 #
-# Copyright (C) 2024  Dirk Eddelbuettel
+# Copyright (C) 2024 - 2025  Dirk Eddelbuettel
 #
 # Released under GPL (>= 2)
 
@@ -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 <- 1.2*getOption("width")
+cols <- 1.45*getOption("width")
 dts <- unique(dd[, "Deadline"])
 for (d in seq_along(dts)) {
     cat(.blue(dts[d]), ": ", sep="")

inst/examples/r2u.r

@@ -70,6 +70,8 @@ if (is.finite(match(opt$CMD, "build"))) {
     #cat("P3M/PPM/RSPM last updated", format(round(difftime(Sys.time(), ts, units=un),1)), "ago\n")
     ## no longer includes hours :-/
     #ld <- anytime::utcdate(D[1,"completed"])
+    ## also:  hit given yyyy-mm-dd in eg https://packagemanager.posit.co/cran/2025-04-22/src/contrib/PACKAGES
+    ##        and then check success / failure -- might be lighter than downloading the whole blob
     ld <- as.Date(max(RcppSimdJson::fload("https://p3m.dev/__api__/repos/cran/transaction-dates")$alias))
     cat("P3M/PPM/RSPM last updated", as.integer(Sys.Date()) - as.integer(ld), "days ago on", format(ld), "\n")