Xml 基本停止函数是否阻止我解析列表？

我可能会错过使用lappy，但我很好奇，在lappy中，stop是否被用作函数。我也欢迎任何简化代码的建议

library(XML)
full_url <- "http://bustracker.muni.org/InfoPoint/XML/stopdepartures.xml"
xml_obj <- xmlParse(full_url)
departure_list <- xmlToList(xml_obj)
lapply(departure_list, function(x) x$stop$departure$edt)

库（XML）
未调用完整url
base:：stop

它看起来像每个列表条目，但第一个条目名为
stop
。此名称将由
lappy
执行的子集操作删除，并重新应用于结果。因此，传递给函数的
x
没有名为
stop
的元素，但它确实有名为
department
的元素

我想你想要这个：

lapply(departure_list, function(x) x$departure$edt)

原始数据如下所示：

<departures>
    <generated timezone="-9">2015-08-25 19:38</generated>
    <stop>
        <id>1437</id>
        <name>BAXTER and NORTHERN LIGHTS</name>
        <departure mode="destination">
            <edt>20:10</edt>
            <sdt>20:10</sdt>
            <dev>0</dev>
            <text>1 MULDOON</text>
            <route>
                <id>1</id>
                <name>CROSSTOWN</name>
            </route>
            <dir>I</dir>
        </departure>
        <departure mode="destination">
            <edt>21:10</edt>
            <sdt>21:10</sdt>
            <dev>0</dev>
            <text>1 MULDOON</text>
            <route>
                <id>1</id>
                <name>CROSSTOWN</name>
            </route>
            <dir>I</dir>
        </departure>
...


2015-08-25 19:38
1437
巴克斯特与北极光
20:10
20:10
0
1马尔登
1.
十字城
我
21:10
21:10
0
1马尔登
1.
十字城
我
...