ws style

Author: MichaelChirico

inst/tests/mergelist.Rraw

@@ -25,21 +25,21 @@ test(2.03, fdistinct(data.table(x=c(1L,1:2)), on="x", mult="last", cols=characte
 test(2.04, fdistinct(data.table(x=c(1L,1:2, y=1:3)), on="x", mult="last", copy=NA), error="must be TRUE or FALSE")
 local({
   d = data.table(x=1:2, y=1:2)
-  test(2.05, ans<-fdistinct(d, on="x", mult="last"), d)
+  test(2.05, ans <- fdistinct(d, on="x", mult="last"), d)
   test(2.06, intersect(addresses(ans), addresses(d)), character())
-  test(2.07, ans<-fdistinct(d, on="x", mult="last", copy=FALSE), d)
+  test(2.07, ans <- fdistinct(d, on="x", mult="last", copy=FALSE), d)
   test(2.08, addresses(ans), addresses(d))
 })
 local({
-  d = data.table(x=c(2:1,2L), y=1:3)
+  d = data.table(x=c(2:1, 2L), y=1:3)
   test(2.09, fdistinct(d, on="x", mult="first"), data.table(x=2:1, y=1:2))
   test(2.10, fdistinct(d, on="x", mult="last"), data.table(x=1:2, y=2:3))
   setattr(attr(setattr(d, "index", integer()), "index", TRUE), "__x", forderv(d, "x", retGrp=TRUE)) ## retGrp=T index #4386
   test(2.11, fdistinct(d, on="x", mult="first"), data.table(x=2:1, y=1:2))
 })
 
 local({
-  d = data.table(x=c(2:1,2L), y=1:3)
+  d = data.table(x=c(2:1, 2L), y=1:3)
   test(3.01, hasindex(d, "x"))
   test(3.02, hasindex(d, "x", retGrp=TRUE))
   setattr(attr(setattr(d, "index", integer()), "index", TRUE), "__x", forderv(d, "x"))              ## retGrp=F index #4386