..

Author: venom1204

inst/tests/tests.Rraw

@@ -21777,7 +21777,7 @@ test(2377.91, truelength(dt$a), 0L)
 test(2377.92, {setallocrow(dt); truelength(dt$a)}, 3L)
 
 # 7431 warn when .SD is returned after local assignment to .SD columns
-test(2378.1, {DT=data.table(a=1:3,b=1:3); DT[, {b[2] <- 0L; .SD}]}, data.table(a=1:3,b=1:3), warning="Local assignment to column\\(s\\) \\[b\\] detected in 'j' while also using \\.SD")
-test(2378.2, {DT=data.table(a=1:3,b=1:3,d=1:3); DT[a %in% 1:2, {b[d==2L] <- 0L; .SD}]}, data.table(a=1:2,b=1:2,d=1:2), warning="Local assignment to column\\(s\\) \\[b\\] detected in 'j' while also using \\.SD")
-test(2378.3, {DT=data.table(a=1:3,b=1:3); DT[, {x <- b; x[2] <- 0L; .SD}]}, data.table(a=1:3,b=1:3))
-test(2378.4, {DT=data.table(a=1:3,b=1:3,c=1:3); DT[, {c[2] <- 0L; .SD}, .SDcols="a"]}, data.table(a=1:3))
+test(2378.1, {DT=data.table(a=1:3,b=1:3); DT[, {b[2] = 0L; .SD}]}, data.table(a=1:3,b=1:3), warning="Local assignment to column\\(s\\) \\[b\\] detected in 'j' while also using \\.SD")
+test(2378.2, {DT=data.table(a=1:3,b=1:3,d=1:3); DT[a %in% 1:2, {b[d==2L] = 0L; .SD}]}, data.table(a=1:2,b=1:2,d=1:2), warning="Local assignment to column\\(s\\) \\[b\\] detected in 'j' while also using \\.SD")
+test(2378.3, {DT=data.table(a=1:3,b=1:3); DT[, {x = b; x[2] = 0L; .SD}]}, data.table(a=1:3,b=1:3))
+test(2378.4, {DT=data.table(a=1:3,b=1:3,c=1:3); DT[, {c[2] = 0L; .SD}, .SDcols="a"]}, data.table(a=1:3))