style, tweaks

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -20652,15 +20652,15 @@ set(y, j="\u00e4", value=NULL)
 test(2298.3, rbindlist(list(x,y), use.names=TRUE, fill=TRUE), data.table("\u00e4"=c(1,NA), "\u00f6"=c(2,4), "\u00fc"=c(3,5)))
 test(2298.4, rbindlist(list(y,x), use.names=TRUE, fill=TRUE), data.table("\u00f6"=c(4,2),  "\u00fc"=c(5,3), "\u00e4"=c(NA,1)))
 
-# #6592: nested single-column frames break in print.data.table
-test(2299.01, format_list_item(data.frame(a=1)),                      output = "<data.frame\\[1x1]>")
-test(2299.02, format_list_item(data.frame(a=1)[0,,drop=FALSE]),       output = "<data.frame\\[0x1]>")
-test(2299.03, format_list_item(data.frame(a=1)[,0]),                  output = "<data.frame\\[1x0]>")
-test(2299.04, format_list_item(data.frame(a=1, b=2)[0,,drop=FALSE]),  output = "<data.frame\\[0x2]>")
-test(2299.06, format_list_item(data.table(a=1)),                      output = "<data.table\\[1x1]>")
-test(2299.07, format_list_item(data.table(a=numeric())),              output = "<data.table\\[0x1]>")
-test(2299.08, format_list_item(data.table()),                         output = "<data.table\\[0x0]>")
-test(2299.09, format_list_item(data.table(a=numeric(), b=numeric())), output = "<data.table\\[0x2]>")
-test(2299.10, data.table(a=1),                                        output = " *a\n1: *1")
-test(2299.11, data.table(a=list(data.frame(b=1))),                    output = " *a\n1: <data.frame\\[1x1]>")
-test(2299.12, data.table(a=list(data.table(b=1))),                    output = " *a\n1: <data.table\\[1x1]>")
+# #6592: printing nested single-column frames
+test(2299.01, format_list_item(data.frame(a=1)),                      output="<data.frame[1x1]>")
+test(2299.02, format_list_item(data.frame(a=1)[0,,drop=FALSE]),       output="<data.frame[0x1]>")
+test(2299.03, format_list_item(data.frame(a=1)[,0]),                  output="<data.frame[1x0]>")
+test(2299.04, format_list_item(data.frame(a=1, b=2)[0,,drop=FALSE]),  output="<data.frame[0x2]>")
+test(2299.06, format_list_item(data.table(a=1)),                      output="<data.table[1x1]>")
+test(2299.07, format_list_item(data.table(a=numeric())),              output="<data.table[0x1]>")
+test(2299.08, format_list_item(data.table()),                         output="<data.table[0x0]>")
+test(2299.09, format_list_item(data.table(a=numeric(), b=numeric())), output="<data.table[0x2]>")
+test(2299.10, data.table(a=1),                                        output="a\n1: *1")
+test(2299.11, data.table(a=list(data.frame(b=1))),                    output="a\n1: <data.frame[1x1]>")
+test(2299.12, data.table(a=list(data.table(b=1))),                    output="a\n1: <data.table[1x1]>")