expected <- eval(parse(text="c(\"\\n\", \"    \", \"list(list(list(\\\"languageEl\\\"), \\\":\\\"), list(\\\"\\\\n\\\", \\\"      extract an element of a language object, consistently for\\\\n\\\", \\\"      different kinds of objects.\\\\n\\\", \\\"\\\\n\\\", \\\"      The 1st., etc. elements of a function are the corresponding formal\\\\n\\\", \\\"      arguments, with the default expression if any as value.\\\\n\\\", \\\"\\\\n\\\", \\\"      The first element of a call is the name or the function object\\\\n\\\", \\\"      being called.\\\\n\\\", \\\"\\\\n\\\", \\\"      The 2nd, 3rd, etc. elements are the 1st, 2nd, etc. arguments\\\\n\\\", \\\"      expressions.  Note that the form of the extracted name is\\\\n\\\", \\n    \\\"      different for R and S-Plus.  When the name (the first element) of\\\\n\\\", \\\"      a call is replaced, the languageEl replacement function coerces a\\\\n\\\", \\\"      character string to the internal form for each system.\\\\n\\\", \\\"\\\\n\\\", \\\"      The 1st, 2nd, 3rd elements of an \\\", list(\\\"if\\\"), \\\" expression are the\\\\n\\\", \\\"      test, first, and second branch.\\\\n\\\", \\\"\\\\n\\\", \\\"      The 1st element of a \\\", list(\\\"for\\\"), \\\" object is the name (symbol) being\\\\n\\\", \\\"      used in the loop, the second is the expression for the range of\\\\n\\\", \\n    \\\"      the loop, the third is the body of the loop.\\\\n\\\", \\\"\\\\n\\\", \\\"      The first element of a \\\", list(\\\"while\\\"), \\\" object is the loop test, and\\\\n\\\", \\\"      the second the body of the loop.\\\\n\\\", \\\"    \\\"))\", \"\\n\", \"\\n\", \"    \", \"list(list(list(\\\"isGrammarSymbol\\\"), \\\":\\\"), list(\\\"\\\\n\\\", \\\"      Checks whether the symbol is part of the grammar.\\\\n\\\", \\\"      Don't use this function directly.\\\\n\\\", \\\"    \\\"))\", \"\\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(list(structure(\"languageEl\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\":\", Rd_tag = \"TEXT\")), list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      extract an element of a language object, consistently for\\n\", Rd_tag = \"TEXT\"), structure(\"      different kinds of objects.\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      The 1st., etc. elements of a function are the corresponding formal\\n\", Rd_tag = \"TEXT\"),     structure(\"      arguments, with the default expression if any as value.\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      The first element of a call is the name or the function object\\n\", Rd_tag = \"TEXT\"), structure(\"      being called.\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      The 2nd, 3rd, etc. elements are the 1st, 2nd, etc. arguments\\n\", Rd_tag = \"TEXT\"), structure(\"      expressions.  Note that the form of the extracted name is\\n\", Rd_tag = \"TEXT\"),     structure(\"      different for R and S-Plus.  When the name (the first element) of\\n\", Rd_tag = \"TEXT\"), structure(\"      a call is replaced, the languageEl replacement function coerces a\\n\", Rd_tag = \"TEXT\"), structure(\"      character string to the internal form for each system.\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      The 1st, 2nd, 3rd elements of an \", Rd_tag = \"TEXT\"), structure(list(structure(\"if\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" expression are the\\n\", Rd_tag = \"TEXT\"),     structure(\"      test, first, and second branch.\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      The 1st element of a \", Rd_tag = \"TEXT\"), structure(list(structure(\"for\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" object is the name (symbol) being\\n\", Rd_tag = \"TEXT\"), structure(\"      used in the loop, the second is the expression for the range of\\n\", Rd_tag = \"TEXT\"), structure(\"      the loop, the third is the body of the loop.\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"),     structure(\"      The first element of a \", Rd_tag = \"TEXT\"), structure(list(structure(\"while\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" object is the loop test, and\\n\", Rd_tag = \"TEXT\"), structure(\"      the second the body of the loop.\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"), structure(list(list(structure(list(structure(\"isGrammarSymbol\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"),     structure(\":\", Rd_tag = \"TEXT\")), list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"      Checks whether the symbol is part of the grammar.\\n\", Rd_tag = \"TEXT\"), structure(\"      Don't use this function directly.\\n\", Rd_tag = \"TEXT\"), structure(\"    \", 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);                 

