diff --git a/inst/tests/nafill.Rraw b/inst/tests/nafill.Rraw index 6428be9af..4ab0d30b9 100644 --- a/inst/tests/nafill.Rraw +++ b/inst/tests/nafill.Rraw @@ -416,7 +416,7 @@ test(15.22, nafill(x, fill=y26), replace(x, c(1L, 3L, 5L), y26)) test(15.23, nafill(x, fill=as.POSIXct(y26, tz='Asia/Singapore')), replace(x, c(1L, 3L, 5L), y26)) test(15.24, nafill(as.Date(NA), fill=as.IDate("2025-01-01")), as.Date("2025-01-01")) -test(15.25, nafill(as.Date(NA_integer_), fill=as.IDate("2025-01-01")), as.Date("2025-01-01")) +test(15.25, nafill(as.Date(NA_integer_, origin='1970-01-01'), fill=as.IDate("2025-01-01")), as.Date("2025-01-01")) test(15.26, nafill(as.IDate(NA), fill=as.Date("2025-01-01")), as.IDate("2025-01-01")) ## setnafill diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index 27ad21eaf..1c7ab6837 100644 --- a/inst/tests/tests.Rraw +++ b/inst/tests/tests.Rraw @@ -21422,10 +21422,10 @@ test(2359.1, nchar(fread(txt)$foo), 409600L) # rowwiseDT() valid and invalid handling of complex objects #7219 test(2360.1, rowwiseDT(x =, y =, 1, 2, 3, 4), data.table(x = c(1, 3), y = c(2, 4))) test(2360.2, rowwiseDT(x =, func =, - 1, list(\(x) x + 1), + 1, list(function(x) x + 1), 2, list(function(z) z * 2)), - data.table(x = c(1, 2), func = list(\(x) x + 1, function(z) z * 2))) -test(2360.3, rowwiseDT(x =, func =, 1, \(x) x + 1), + data.table(x = c(1, 2), func = list(function(x) x + 1, function(z) z * 2))) +test(2360.3, rowwiseDT(x =, func =, 1, function(x) x + 1), error = "Column 'func' is type 'function'. Non-atomic, non-list objects must be wrapped in list\\(\\)") test(2360.4, rowwiseDT(x =, expr =, 1, quote(a + b)), error = "Column 'expr' is type 'call'. Non-atomic, non-list objects must be wrapped in list\\(\\)")