Merge branch 'DataCodeIntegration' of https://github.com/Rdatatable/data.table into DataCodeIntegration

Author: badasahog

.ci/linters/md/news_linter.R …rs/md/news_github_link_mismatch_linter.R.ci/linters/md/news_linter.R renamed to .ci/linters/md/news_github_link_mismatch_linter.R .ci/linters/md/news_linter.R renamed to .ci/linters/md/news_github_link_mismatch_linter.R

@@ -1,32 +1,6 @@
-# ensure that numbered list in each section is in sequence
-check_section_numbering = function(news) {
-  if (!grepl("NEWS", news)) return(invisible())
-  news = readLines(news)
-  # plain '#' catches some examples; 'd' for 'data.table'
-  sections = grep("^#+ [A-Zd]", news)
-  entries = grep("^[0-9]+[.]", news)
-  entry_value = as.integer(gsub("^([0-9]+)[.].*", "\\1", news[entries]))
-  section_id = findInterval(entries, sections)
-
-  any_mismatch = FALSE
-  for (id in unique(section_id)) {
-    section_entries = entry_value[section_id == id]
-    intended_value = seq_along(section_entries)
-    matched = section_entries == intended_value
-    if (all(matched)) next
-    any_mismatch = TRUE
-    section_header = news[sections[id]]
-    cat(sprintf(
-      "In section '%s' (line %d), bad numbering:\n%s\n",
-      section_header, sections[id],
-      paste0("  [", section_entries[!matched], " --> ", intended_value[!matched], "]", collapse="\n")
-    ))
-  }
-  stopifnot("Please fix the NEWS issues above" = !any_mismatch)
-}
-
 # ensure that GitHub link text & URL actually agree
-check_gh_links = function(news) {
+news_github_link_mismatch_linter = function(news) {
+  if (!grepl("NEWS", news)) return(invisible())
   news = readLines(news)
   gh_links_info = gregexpr(
     "\\[#(?<md_number>[0-9]+)\\]\\(https://github.com/Rdatatable/data.table/(?<link_type>[^/]+)/(?<link_number>[0-9]+)\\)",

.ci/linters/md/news_section_numbering_linter.R

@@ -0,0 +1,26 @@
+# ensure that numbered list in each section is in sequence
+news_section_numbering_linter = function(news) {
+  if (!grepl("NEWS", news)) return(invisible())
+  news = readLines(news)
+  # plain '#' catches some examples; 'd' for 'data.table'
+  sections = grep("^#+ [A-Zd]", news)
+  entries = grep("^[0-9]+[.]", news)
+  entry_value = as.integer(gsub("^([0-9]+)[.].*", "\\1", news[entries]))
+  section_id = findInterval(entries, sections)
+
+  any_mismatch = FALSE
+  for (id in unique(section_id)) {
+    section_entries = entry_value[section_id == id]
+    intended_value = seq_along(section_entries)
+    matched = section_entries == intended_value
+    if (all(matched)) next
+    any_mismatch = TRUE
+    section_header = news[sections[id]]
+    cat(sprintf(
+      "In section '%s' (line %d), bad numbering:\n%s\n",
+      section_header, sections[id],
+      paste0("  [", section_entries[!matched], " --> ", intended_value[!matched], "]", collapse="\n")
+    ))
+  }
+  stopifnot("Please fix the NEWS issues above" = !any_mismatch)
+}

.ci/linters/md/heading_id_linter.R …/linters/md/vignette_heading_id_linter.R.ci/linters/md/heading_id_linter.R renamed to .ci/linters/md/vignette_heading_id_linter.R .ci/linters/md/heading_id_linter.R renamed to .ci/linters/md/vignette_heading_id_linter.R

@@ -1,6 +1,6 @@
 # ensure that ids are limited to alphanumerics and dashes
 # (in particular, dots and underscores break the links)
-check_header_ids = function(md) {
+vignette_heading_id_linter = function(md) {
   if (!grepl('[.]Rmd$', md)) return(invisible())
   md = readLines(md)
   # A bit surprisingly, some headings don't start with a letter.

GOVERNANCE.md

@@ -63,7 +63,7 @@ Functionality that is out of current scope:
 ## Committer
 
 * Definition: permission to commit to, and merge PRs into, master branch. 
-* How to obtain this role: after a Reviewer has a consistent history of careful reviews of others' PRs, then a current Committer should ask all other current Committers if they approve promoting the Reviewer to Committer, and it should be done if there is Consensus among active Committers. 
+* How to obtain this role: after a Reviewer has a consistent history of careful reviews of others' substantial PRs, then a current Committer should ask all other current Committers if they approve promoting the Reviewer to Committer, and it should be done if there is Consensus among active Committers. 
 * How this role is recognized: credited via role="aut" in DESCRIPTION (so they appear in Author list on CRAN), and added to https://github.com/orgs/Rdatatable/teams/committers which gives permission to merge PRs into master branch. 
 
 ## CRAN Maintainer
@@ -139,6 +139,8 @@ data.table Version line in DESCRIPTION typically has the following meanings
 
 # Governance history
 
+July 2025: require potential new committers' considered history to be of "substantial" PRs
+
 May 2025: update Finance and CoC language for NumFOCUS incorporation.
 
 Feb 2025: add Finances and Funding section, update Code of Conduct section to be a brief summary and reference the broader CoC document.

NEWS.md

@@ -40,7 +40,7 @@
     # 2:     2     6     4     5
     ```
 
-8. `groupingsets()` gets a new argument `enclos` for use together with the `jj` argument in functions wrapping `groupingsets()`, including the existing wrappers `rollup()` and `cube()`. When forwarding a `j`-expression as `groupingsets(jj = substitute(j))`, make sure to pass `enclos = parent.frame()` as well, so that the `j`-expression will be evaluated in the right context. This makes it possible for `j` to refer to variables outside the `data.table`.
+8. `groupingsets()` gets a new argument `enclos` for use together with the `jj` argument in functions wrapping `groupingsets()`, including the existing wrappers `rollup()` and `cube()`, [#5560](https://github.com/Rdatatable/data.table/issues/5560). When forwarding a `j`-expression as `groupingsets(jj = substitute(j))`, make sure to pass `enclos = parent.frame()` as well, so that the `j`-expression will be evaluated in the right context. This makes it possible for `j` to refer to variables outside the `data.table`. Thanks @sindribaldur for the report and @aitap for the fix.
 
 ### BUG FIXES
 
@@ -84,6 +84,8 @@
  
 20. `droplevels()` works on 0-row data.tables, [#7043](https://github.com/Rdatatable/data.table/issues/7043). The result will have factor columns `factor(character())`, consistent with the data.frame method. Thanks @advieser for the report and @MichaelChirico for the fix.
 
+21. `print(..., col.names = 'none')` now correctly adapts column widths to the data content, ignoring the original column names and producing a more compact output, [#6882](https://github.com/Rdatatable/data.table/issues/6882). Thanks to @brooksambrose for the report and @venom1204 for the PR.
+
 ### NOTES
 
 1. Continued work to remove non-API C functions, [#6180](https://github.com/Rdatatable/data.table/issues/6180). Thanks Ivan Krylov for the PRs and for writing a clear and concise guide about the R API: https://aitap.codeberg.page/R-api/.

R/print.data.table.R

@@ -141,6 +141,8 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
     print_default(toprint)
     return(invisible(x))
   }
+  if (col.names == "none")
+    colnames(toprint) = rep.int("", ncol(toprint))
   if (nrow(toprint)>20L && col.names == "auto")
     # repeat colnames at the bottom if over 20 rows so you don't have to scroll up to see them
     #   option to shut this off per request of Oleg Bondar on SO, #1482

inst/tests/tests.Rraw

@@ -21365,3 +21365,11 @@ test(2328.1, levels(droplevels(DT)$f), character())
 DT[, i := integer()]
 DT[, f2 := factor()]
 test(2328.2, droplevels(DT), data.table(f=factor(), i=integer(), f2=factor()))
+
+#6882 print() output with col.names="none"
+dt = data.table(short = 1:3, verylongcolumnname = 4:6)
+test(2329.1, print(dt, col.names = "none"), output = "1: 1 4\n2: 2 5\n3: 3 6\n")
+dt = data.table(x = 123456, y = "wide_string")
+test(2329.2, print(dt, col.names = "none"), output = "1: 123456 wide_string\n")
+dt = data.table(a = NA_integer_, b = NaN)
+test(2329.3, print(dt, col.names = "none"), output = "1: NA NaN\n")