expected <- eval(parse(text="c(\"\\n\", \"    \", \"list(list(\\\"coerce\\\"), list(list(\\\"signature(from = \\\\\\\"dgCMatrix\\\\\\\", to =\\\\n\\\", \\\"\\\\t\\\\\\\"ngCMatrix\\\\\\\")\\\"), \\\", and many similar ones; typically you should\\\\n\\\", \\\"      coerce to \\\", list(\\\"\\\\\\\"nsparseMatrix\\\\\\\"\\\"), \\\" (or \\\", list(\\\"\\\\\\\"nMatrix\\\\\\\"\\\"), \\\").  Note that\\\\n\\\", \\\"      coercion to a sparse pattern matrix records all the potential\\\\n\\\", \\\"      non-zero entries, i.e., explicit (\\\", list(\\\"non-structural\\\"), \\\") zeroes\\\\n\\\", \\\"      are coerced to \\\", list(\\\"TRUE\\\"), \\\", not \\\", list(\\\"FALSE\\\"), \\\", see the example.\\\\n\\\", \\\"    \\\"))\", \"\\n\", \"    \", \"list(list(\\\"t\\\"), list(list(\\\"signature(x = \\\\\\\"ngCMatrix\\\\\\\")\\\"), \\\": returns the transpose\\\\n\\\", \\\"      of \\\", list(\\\"x\\\")))\", \"\\n\", \"\\n\", \"    \", \"list(list(\\\"which\\\"), list(list(\\\"signature(x = \\\\\\\"lsparseMatrix\\\\\\\")\\\"), \\\", semantically\\\\n\\\", \\\"      equivalent to \\\", list(\\\"base\\\"), \\\" function \\\", list(list(\\\"which\\\"), \\\"(x, arr.ind)\\\"), \\\";\\\\n\\\", \\\"      for details, see the \\\", list(list(\\\"lMatrix\\\")), \\\" class documentation.\\\"))\", \"\\n\", \"  \")"));                 
test(id=0, code={                 
argv <- eval(parse(text="list(structure(list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"), structure(list(list(structure(\"coerce\", Rd_tag = \"TEXT\")), list(structure(list(structure(\"signature(from = \\\"dgCMatrix\\\", to =\\n\", Rd_tag = \"RCODE\"), structure(\"\\t\\\"ngCMatrix\\\")\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\", and many similar ones; typically you should\\n\", Rd_tag = \"TEXT\"), structure(\"      coerce to \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\"nsparseMatrix\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"),     structure(\" (or \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\"nMatrix\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\").  Note that\\n\", Rd_tag = \"TEXT\"), structure(\"      coercion to a sparse pattern matrix records all the potential\\n\", Rd_tag = \"TEXT\"), structure(\"      non-zero entries, i.e., explicit (\", Rd_tag = \"TEXT\"), structure(list(structure(\"non-structural\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\dQuote\"), structure(\") zeroes\\n\", Rd_tag = \"TEXT\"), structure(\"      are coerced to \", Rd_tag = \"TEXT\"),     structure(list(structure(\"TRUE\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\", not \", Rd_tag = \"TEXT\"), structure(list(structure(\"FALSE\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\", see the example.\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"), structure(list(list(structure(\"t\", Rd_tag = \"TEXT\")), list(structure(list(structure(\"signature(x = \\\"ngCMatrix\\\")\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"),     structure(\": returns the transpose\\n\", Rd_tag = \"TEXT\"), structure(\"      of \", Rd_tag = \"TEXT\"), structure(list(structure(\"x\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"), structure(list(list(structure(\"which\", Rd_tag = \"TEXT\")), list(structure(list(structure(\"signature(x = \\\"lsparseMatrix\\\")\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\", semantically\\n\", Rd_tag = \"TEXT\"),     structure(\"      equivalent to \", Rd_tag = \"TEXT\"), structure(list(structure(\"base\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\pkg\"), structure(\" function \", Rd_tag = \"TEXT\"), structure(list(structure(list(structure(\"which\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\"), structure(\"(x, arr.ind)\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\";\\n\", Rd_tag = \"TEXT\"), structure(\"      for details, see the \", Rd_tag = \"TEXT\"), structure(list(structure(list(structure(\"lMatrix\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\linkS4class\")), Rd_tag = \"\\\\code\"),     structure(\" class documentation.\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"  \", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\describe\"))"));                 
do.call(`as.character`, argv);                 
}, o=expected);                 

