expected <- eval(parse(text="structure(c(607L, 30L, 3L, 11L, 44L, 67L, 17L, 16L, 67L, 6L, 1L, 13L, 672L, 46L, 8L, 18L, 10L, 22L, 16L, 5L, 55L, 2L), .Dim = 22L, .Dimnames = structure(list(c(\"BUG FIXES\", \"C-LEVEL FACILITIES\", \"CODE MIGRATION\", \"COMPRESSION\", \"DEPRECATED & DEFUNCT\", \"DEPRECATED AND DEFUNCT\", \"GRAPHICS DEVICES\", \"HELP & Rd FILE CHANGES\", \"INSTALLATION\", \"INTERNATIONALIZATION\", \"LICENCE\", \"LONG VECTORS\", \"NEW FEATURES\", \"PACKAGE INSTALLATION\", \"PACKAGE parallel\", \"PERFORMANCE IMPROVEMENTS\", \"REGULAR EXPRESSIONS\", \"SIGNIFICANT USER-VISIBLE CHANGES\", \"SWEAVE & VIGNETTES\", \"SWEAVE CHANGES\", \"UTILITIES\", \"WINDOWS-SPECIFIC CHANGES\")), .Names = \"\"))"));     
test(id=0, code={     
argv <- eval(parse(text="list(structure(c(607L, 30L, 3L, 11L, 44L, 67L, 17L, 16L, 67L, 6L, 1L, 13L, 672L, 46L, 8L, 18L, 10L, 22L, 16L, 5L, 55L, 2L), .Dim = 22L, .Dimnames = structure(list(c(\"BUG FIXES\", \"C-LEVEL FACILITIES\", \"CODE MIGRATION\", \"COMPRESSION\", \"DEPRECATED & DEFUNCT\", \"DEPRECATED AND DEFUNCT\", \"GRAPHICS DEVICES\", \"HELP & Rd FILE CHANGES\", \"INSTALLATION\", \"INTERNATIONALIZATION\", \"LICENCE\", \"LONG VECTORS\", \"NEW FEATURES\", \"PACKAGE INSTALLATION\", \"PACKAGE parallel\", \"PERFORMANCE IMPROVEMENTS\", \"REGULAR EXPRESSIONS\", \"SIGNIFICANT USER-VISIBLE CHANGES\", \"SWEAVE & VIGNETTES\", \"SWEAVE CHANGES\", \"UTILITIES\", \"WINDOWS-SPECIFIC CHANGES\")), .Names = \"\"), class = \"table\"))"));     
do.call(`xtfrm`, argv);     
}, o=expected);     

