R语言解析含导入命名空间的多文件XML schema并提取全元素层级

我有一个由分散在不同文件的多个命名空间组成的复杂XML schema，下图是用XSD Diagram生成的该schema的局部结构示意图：

注意party元素类型为partyType，其定义所在的命名空间与parties元素的命名空间不同，主文件veg.xsd中parties的简化XML定义如下：

...
<xsd:element name="parties" minOccurs="0">
    <xsd:annotation>
        <xsd:documentation>...</xsd:documentation>
    </xsd:annotation>
    <xsd:complexType>
        <xsd:sequence>
            <xsd:element name="party" type="misc:partyType" maxOccurs="unbounded">
                <xsd:annotation>
                    <xsd:documentation source="EML" xml:lang="en">...</xsd:documentation>
                </xsd:annotation>
            </xsd:element>
        </xsd:sequence>
    </xsd:complexType>
</xsd:element>
...

我的目标是导出整个schema跨命名空间的完整元素层级结构，与上述示意图结构类似。但我在R中解析veg.xsd时无法访问导入的命名空间内容，例如执行如下代码统计带name属性的元素时，仅返回veg.xsd内定义的52个元素，实际数量远大于该值，请问该如何解决问题？

library(xml2)
def_xsd = read_xml("vegx_schema/veg.xsd")
xml_find_all(def_xsd, "//xsd:element") %>% 
  xml_attr("name") %>%
  length()

[1] 52 # 实际值远大于该数值

出现该问题的原因是xml2的read_xml默认仅读取单个XSD文件，不会自动递归解析<xsd:import>、<xsd:include>标签引入的外部命名空间和子XSD文件，所以只能统计到当前文件内的元素，可按以下步骤处理：

• 提取主XSD内所有外部引入的文件路径，批量读取所有关联XSD
  首先通过XPath定位主文件内所有的导入和包含标签，拿到对应schema的位置属性，依次读取这些外部文件：

  library(xml2)
  library(purrr)
  library(dplyr)
  
  # 配置XSD命名空间前缀，避免XPath查找失败
  ns <- c(xsd = "http://www.w3.org/2001/XMLSchema")
  
  # 读取主XSD
  main_xsd_path <- "vegx_schema/veg.xsd"
  main_dir <- dirname(main_xsd_path)
  main_xsd <- read_xml(main_xsd_path)
  
  # 提取所有导入/引入的外部XSD路径
  import_paths <- xml_find_all(main_xsd, "//xsd:import/@schemaLocation | //xsd:include/@schemaLocation", ns = ns) %>% 
    xml_text() %>% 
    file.path(main_dir, .)
  
  # 把主XSD和所有外部XSD都读入列表
  all_xsd <- c(list(main_xsd), map(import_paths, read_xml))
  

• 合并所有XSD的元素统计结果
  遍历所有已读取的XSD文件，统一提取带name属性的元素，即可得到完整的元素数量：

  all_elements <- map(all_xsd, ~xml_find_all(.x, "//xsd:element[@name]", ns = ns)) %>% 
    flatten()
  
  # 查看总元素数量
  length(all_elements)
  

• 生成跨命名空间层级结构
  如果要生成和示意图类似的层级树，需要额外处理类型引用：如果某个元素的type属性带命名空间前缀，就去对应命名空间的XSD文件中查找该类型的定义，递归展开内部的元素结构即可。
  若不想手动处理解析逻辑，也可以直接使用XMLSchema包，它原生支持解析多文件、多命名空间的XSD schema，自带层级结构导出的相关接口。

内容的提问来源于stack exchange，提问作者ChrKoenig