upd to sggsns

Author: Mukulyadav2004

.ci/linters/rd/options_doc_check.R

@@ -1,16 +1,14 @@
 # Ensure that data.table options in code match documentation
 check_options_documentation = function(rd_file) {
-  if (!grepl("\\name{data.table-options}", rd_file, fixed = TRUE)) return(invisible())
+  if (!grepl("\\name{data.table-options}", readLines(rd_file), fixed = TRUE)) return(invisible())
 
   # Find options in R code
   walk_r_ast_for_options = function(expr) {
-    result = character()
     if (is.call(expr) && length(expr) >= 2L && identical(expr[[1L]], quote(getOption)) && is.character(e2 <- expr[[2L]]) && startsWith(e2, "datatable.")) {
-      result = e2
+      e2
     } else if (is.recursive(expr)) {
-      result = c(result, unlist(lapply(expr, walk_r_ast_for_options)))
+      unlist(lapply(expr, walk_r_ast_for_options))
     }
-    result
   }
 
   # Find options in documentation
@@ -29,8 +27,8 @@ check_options_documentation = function(rd_file) {
   code_opts = list.files("R", pattern = "\\.R$", full.names = TRUE) |>
     lapply(\(f) lapply(parse(f), walk_for_dt_options)) |>
     unlist() |>
-    unique() |>
-    setdiff("datatable.alloc")
+    unique() 
+
   doc_opts = rd_file |>
     tools::parse_Rd() |>
     walk_rd() |>

.vscode/c_cpp_properties.json

@@ -0,0 +1,20 @@
+{
+    "configurations": [
+        {
+            "name": "Win32",
+            "includePath": [
+                "${workspaceFolder}/**"
+            ],
+            "defines": [
+                "_DEBUG",
+                "UNICODE",
+                "_UNICODE"
+            ],
+            "compilerPath": "C:\\MinGW\\bin\\gcc.exe",
+            "cStandard": "c11",
+            "cppStandard": "gnu++14",
+            "intelliSenseMode": "windows-gcc-x86"
+        }
+    ],
+    "version": 4
+}

man/data.table-options.Rd

@@ -69,12 +69,10 @@
 }
 
 \section{Join and Subset Options}{
-  See \code{\link{data.table}} for more related parameters and examples.
   \describe{
-    \item{\code{datatable.allow.cartesian}}{A logical, default \code{FALSE}. A safety feature. If \code{FALSE}, a join
-      is not allowed if the result would have more rows than the largest of the two tables.}
-    \item{\code{datatable.nomatch}}{Default \code{NA}. Controls the behavior of non-matching rows in
-      a join. Can be set to \code{0L} to drop non-matching rows.}
+    \item{\code{datatable.allow.cartesian}}{A logical, default \code{FALSE}. Controls the default value of the 
+    allow.cartesian parameter; see \code{\link{data.table}}. If the value of this parameter is FALSE, an error is raised if 
+    a join would result in more rows than the sum of the two tables, as a safeguard against an explosive Cartesian join.}
   }
 }
 
@@ -111,8 +109,8 @@
 }
 
 \seealso{
-  \code{\link{options}},
-  \code{\link{getOption}},
+  \code{\link[base]{options}},
+  \code{\link[base]{getOption}},
   \code{\link{data.table}}
 }
 

src/assign.c

@@ -277,10 +277,10 @@ int checkOverAlloc(SEXP x)
   if (!isInteger(x) && !isReal(x))
     error(_("getOption('datatable.alloccol') should be a number, by default 1024. But its type is '%s'."), type2char(TYPEOF(x)));
   if (LENGTH(x) != 1)
-    error(_("getOption('datatable.alloc') is a numeric vector ok but its length is %d. Its length should be 1."), LENGTH(x));
+    error(_("getOption('datatable.alloccol') is a numeric vector ok but its length is %d. Its length should be 1."), LENGTH(x));
   int ans = asInteger(x);
   if (ans<0)
-    error(_("getOption('datatable.alloc')==%d.  It must be >=0 and not NA."), ans);
+    error(_("getOption('datatable.alloccol')==%d.  It must be >=0 and not NA."), ans);
   return ans;
 }