R XML Enforce DDT文件

Question

使用R的XML包，如何强制使用DTD文件？以下报告解析确定，虽然第二个子（描述）没有被DTD文件定义为可接受的子项，但我希望会抛出某种错误。

的test.xml

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE model SYSTEM "test.dtd">
<model>
  <name>Test</name>
  <description>Some Description</description>
</model>

test.dtd

<!--  __ MAIN ELEMENT __ -->
<!ELEMENT model(name) >
<!ELEMENT name (#PCDATA) >

script.R

library(XML)
doc = xmlParse("test.xml")
xmlToList(doc)

输出

doc = xmlParse("test.xml")
xmlToList(doc)

$name
[1] "Test"
$description
[1] "Some Description"