Initial commit: use warning helper

Author: MichaelChirico

R/data.table.R

@@ -2900,7 +2900,7 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {
     home = function(x, env) {
       if (identical(env, emptyenv()))
         stopf("Cannot find symbol %s", cname)
-      else if (exists(x, env, inherits=FALSE)) env
+      else if (exists(x, env, inherits=FALSE)) env # NB: _not_ get0(), since returning 'env' not 'get(x)'
       else home(x, parent.env(env))
     }
     cname = as.character(name)
@@ -2918,10 +2918,15 @@ setDT = function(x, keep.rownames=FALSE, key=NULL, check.names=FALSE) {
   } else if (is.data.frame(x)) {
     # check no matrix-like columns, #3760. Allow a single list(matrix) is unambiguous and depended on by some revdeps, #3581
     # for performance, only warn on the first such column, #5426
+    test_matrix_column = test_posixl_column = TRUE
     for (jj in seq_along(x)) {
-      if (length(dim(x[[jj]])) > 1L) {
+      if (test_posixl_column && inherits(x[[jj]], "POSIXlt")) {
+        .Call(Cwarn_posixl_column_r, jj)
+        test_posixl_column = FALSE
+      }
+      if (test_matrix_column && length(dim(x[[jj]])) > 1L) {
         .Call(Cwarn_matrix_column_r, jj)
-        break
+        test_matrix_column = FALSE
       }
     }
 

inst/tests/tests.Rraw

@@ -8655,7 +8655,7 @@ dt = data.table(d1="1984-03-17")
 ans = data.table(d1="1984-03-17", d2=as.POSIXct("1984-03-17", tz='UTC'))
 test(1612.2, dt[, d2 := strptime(d1, "%Y-%m-%d", tz='UTC')], ans, warning="POSIXlt detected and converted to POSIXct")
 ll = list(a=as.POSIXlt("2015-01-01"), b=2L)
-test(1612.3, setDT(ll), error="Column 1 has class 'POSIXlt'")
+test(1612.3, setDT(ll), ll, warning="Column 1 has class 'POSIXlt'")
 
 # tests for all.equal.data.table #1106
 # diff nrow

src/assign.c

@@ -203,11 +203,16 @@ void warn_matrix_column(/* 1-indexed */ int i) {
   warning(_("Some columns are a multi-column type (such as a matrix column), for example column %d. setDT will retain these columns as-is but subsequent operations like grouping and joining may fail. Please consider as.data.table() instead which will create a new column for each embedded column."), i);
 }
 
+void warn_posixl_column(/* 1-indexed */ int i) {
+  warning(_("Column %d has class 'POSIXlt'. setDT will retain these columns as-is but subsequent operations may fail. We do not recommend the use of POSIXlt at all because it uses 40 bytes to store one date. Please consider as.data.table() instead which will convert to POSIXct."), i+1);
+}
+
 // input validation for setDT() list input; assume is.list(x) was tested in R
 SEXP setdt_nrows(SEXP x)
 {
   int base_length = 0;
   bool test_matrix_cols = true;
+  bool test_posixl_cols = true;
 
   for (R_len_t i = 0; i < LENGTH(x); ++i) {
     SEXP xi = VECTOR_ELT(x, i);
@@ -216,8 +221,9 @@ SEXP setdt_nrows(SEXP x)
      *   e.g. in package eplusr which calls setDT on a list when parsing JSON. Operations which
      *   fail for NULL columns will give helpful error at that point, #3480 and #3471 */
     if (Rf_isNull(xi)) continue;
-    if (Rf_inherits(xi, "POSIXlt")) {
-      error(_("Column %d has class 'POSIXlt'. Please convert it to POSIXct (using as.POSIXct) and run setDT() again. We do not recommend the use of POSIXlt at all because it uses 40 bytes to store one date."), i+1);
+    if (test_posixl_cols && Rf_inherits(xi, "POSIXlt")) {
+      warn_posixl_column(i+1);
+      test_posixl_cols = false;
     }
     SEXP dim_xi = getAttrib(xi, R_DimSymbol);
     R_len_t len_xi;

src/data.table.h

@@ -182,6 +182,7 @@ SEXP alloccol(SEXP dt, R_len_t n, Rboolean verbose);
 const char *memrecycle(const SEXP target, const SEXP where, const int start, const int len, SEXP source, const int sourceStart, const int sourceLen, const int colnum, const char *colname);
 SEXP shallowwrapper(SEXP dt, SEXP cols);
 void warn_matrix_column(int i);
+void warn_posixl_column(int i);
 
 SEXP dogroups(SEXP dt, SEXP dtcols, SEXP groups, SEXP grpcols, SEXP jiscols,
                 SEXP xjiscols, SEXP grporder, SEXP order, SEXP starts,
@@ -328,6 +329,7 @@ SEXP gfirst(SEXP);
 SEXP gnthvalue(SEXP, SEXP);
 SEXP dim(SEXP);
 SEXP warn_matrix_column_r(SEXP);
+SEXP warn_posixl_column_r(SEXP);
 SEXP gvar(SEXP, SEXP);
 SEXP gsd(SEXP, SEXP);
 SEXP gprod(SEXP, SEXP);

src/init.c

@@ -150,6 +150,7 @@ R_CallMethodDef callMethods[] = {
 {"CconvertDate", (DL_FUNC)&convertDate, -1},
 {"Cnotchin", (DL_FUNC)&notchin, -1},
 {"Cwarn_matrix_column_r", (DL_FUNC)&warn_matrix_column_r, -1},
+{"Cwarn_posixl_column_r", (DL_FUNC)&warn_posixl_column_r, -1},
 {NULL, NULL, 0}
 };
 

src/wrappers.c

@@ -124,3 +124,8 @@ SEXP warn_matrix_column_r(SEXP i) {
   warn_matrix_column(INTEGER(i)[0]);
   return R_NilValue;
 }
+
+SEXP warn_posixl_column_r(SEXP i) {
+  warn_posixl_column(INTEGER(i)[0]);
+  return R_NilValue;
+}