lintr + error

Author: venom1204

R/rowwiseDT.R

@@ -21,7 +21,7 @@ rowwiseDT = function(...) {
     first_problem_idx = which(is_problematic)[1L]
     col_idx = (first_problem_idx - 1L) %% ncols + 1L
     col_name = header[col_idx]
-    obj_type = class(body[[first_problem_idx]])[1L]
+    obj_type = class1(body[[first_problem_idx]])
     stopf(
       "In column '%s', received an object of type '%s'.\nComplex objects (like functions, formulas, or calls) must be wrapped in list() to be stored in a data.table column.\nPlease use `list(...)` for this value.",
       col_name,

inst/tests/tests.Rraw

@@ -21663,8 +21663,8 @@ test(2340.2, rowwiseDT(x =, func =,
     2, list(function(z) z * 2)),
     data.table(x = c(1, 2), func = list(\(x) x + 1, function(z) z * 2)))
 test(2340.3, rowwiseDT(x =, func =, 1, \(x) x + 1),
-  error = "In column 'func', received an object of type 'closure'.*wrap.*list")
+  error = "In column 'func', received an object of type 'function'.*wrap.*list")
 test(2340.4, rowwiseDT(x =, expr =, 1, quote(a + b)),
-  error = "In column 'expr', received an object of type 'language'.*wrap.*list")
+  error = "In column 'expr', received an object of type 'call'.*wrap.*list")
 test(2340.5, rowwiseDT(x =, plist =, 1, as.pairlist(list(123))),
   error = "In column 'plist', received an object of type 'pairlist'.*wrap.*list")