style tweaks

Author: MichaelChirico

inst/tests/S4.Rraw

@@ -128,6 +128,6 @@ removeGeneric("%foo%")
 removeClass("CustomDurationClass")
 
 # data.table(s4) #6874 should work
-s4cl = setClass("s4cl", slots = list(x="integer"))
-DT = setalloccol(structure(list(a = new("s4cl", x = 1L)), row.names = c(NA, -1L), class = c("data.table", "data.frame")))
+s4cl = setClass("s4cl", slots=list(x="integer"))
+DT = setalloccol(structure(list(a=new("s4cl", x=1L)), row.names=c(NA, -1L), class=c("data.table", "data.frame")))
 test(9, data.table(a=s4cl(x=1L)), DT)