expected <- eval(parse(text="structure(c(\"\", \" 7\", \"\", \" 8\", \"\", \" 9\", \"\", \"10\", \"\", \"\", \"\", \"\", \" 1\", \"\", \" 2\", \"\", \" 3\", \"\", \" 4\", \"\", \" 5\", \"\", \" 6\", \"\"), .Dim = c(2L, 12L), .Dimnames = list(c(\"1920\", \"1921\"), c(\"Jan\", \"Feb\", \"Mar\", \"Apr\", \"May\", \"Jun\", \"Jul\", \"Aug\", \"Sep\", \"Oct\", \"Nov\", \"Dec\")))"));    
test(id=0, code={    
argv <- eval(parse(text="list(c(\"\", \"\", \"\", \"\", \"\", \"\", \" 1\", \" 2\", \" 3\", \" 4\", \" 5\", \" 6\", \" 7\", \" 8\", \" 9\", \"10\", \"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\"), 1, 12, TRUE, list(c(\"1920\", \"1921\"), c(\"Jan\", \"Feb\", \"Mar\", \"Apr\", \"May\", \"Jun\", \"Jul\", \"Aug\", \"Sep\", \"Oct\", \"Nov\", \"Dec\")), TRUE, FALSE)"));    
.Internal(`matrix`(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]));    
}, o=expected);    

