Question

我想存档以下内容。我有一个XML文件（具体来说是一个osm文件），结构如下：

<?xml version='1.0' encoding='UTF-8'?>
<osm version="0.6" generator="osmconvert 0.8.2">
    <node id="-1" lat="47.4881774" lon="12.9061299">
        <tag k="NAMECAT" v="7355"/>
        <tag k="gml_id" v="F8191__140687"/>
        <tag k="FEAT_NAME" v="Das steinerne Meer"/>
        <tag k="OBJECTID_1" v="140687"/>
        <tag k="OBJECTID" v="1437"/>
    </node>
<way id="-1">
        <nd ref="-2"/>
        <nd ref="-3"/>
        <nd ref="-4"/>
        <nd ref="-5"/>
        <tag k="bla" v="1111"/>
        <tag k="OBJECTID" v="12345"/>
        <tag k="Short" v="old"/>
        <tag k="gml_id" v="F5371__358"/>
        <tag k="NAME" v="sdfsfd"/>
        <tag k="street" v="Blablastreet 15"/>
</way>

etc.
etc.
</osm>

所以我现在要做的就是写入<node>和<way>代码：

<node id="-1" lat="58.4881774" lon="67.9061299">

和

<way id="-1" version="1">

我想在这个标签中写两个字符串（timestamp="1970-01-01T00:00:01Z" version="1"）（可能大约有几百个），所以结果如下：

<node id="-1" lat="58.4881774" lon="67.9061299" changeset="1" timestamp="1970-01-01T00:00:01Z" version="1" >

和

<way id="-1" version="1" changeset="1" timestamp="1970-01-01T00:00:01Z" version="1">

这个位置并不重要，它在<way...>和<node...>

之间写得非常重要

当然，我希望将更改最终保存到同一个xml文件中。我已经尝试使用XML package存档这样的内容但是失败了。 readLines命令看起来很有希望，如果我在每个<way id"-1"或<node id"-1"

之后写一些类似于插入字符串的内容

Answer 1

类似的东西：

library(XML)

doc <- xmlParse('<?xml version="1.0" encoding="UTF-8"?>
<osm version="0.6" generator="osmconvert 0.8.2">
    <node id="-1" lat="47.4881774" lon="12.9061299">
        <tag k="NAMECAT" v="7355"/>
        <tag k="gml_id" v="F8191__140687"/>
        <tag k="FEAT_NAME" v="Das steinerne Meer"/>
        <tag k="OBJECTID_1" v="140687"/>
        <tag k="OBJECTID" v="1437"/>
    </node>
<way id="-1">
        <nd ref="-2"/>
        <nd ref="-3"/>
        <nd ref="-4"/>
        <nd ref="-5"/>
        <tag k="bla" v="1111"/>
        <tag k="OBJECTID" v="12345"/>
        <tag k="Short" v="old"/>
        <tag k="gml_id" v="F5371__358"/>
        <tag k="NAME" v="sdfsfd"/>
        <tag k="street" v="Blablastreet 15"/>
</way></osm>')

invisible(xpathApply(doc, "//node", function(x) xmlAttrs(x) <- c(timestamp="1970-01-01T00:00:01Z", version="1")))
invisible(xpathApply(doc, "//way", function(x) xmlAttrs(x) <- c(timestamp="1970-01-01T00:00:01Z", version="1")))

cat(saveXML(doc))

这是cat：

的输出

<?xml version="1.0" encoding="UTF-8"?>
<osm version="0.6" generator="osmconvert 0.8.2">
  <node id="-1" lat="47.4881774" lon="12.9061299" timestamp="1970-01-01T00:00:01Z" version="1">
    <tag k="NAMECAT" v="7355"/>
    <tag k="gml_id" v="F8191__140687"/>
    <tag k="FEAT_NAME" v="Das steinerne Meer"/>
    <tag k="OBJECTID_1" v="140687"/>
    <tag k="OBJECTID" v="1437"/>
  </node>
  <way id="-1" timestamp="1970-01-01T00:00:01Z" version="1">
    <nd ref="-2"/>
    <nd ref="-3"/>
    <nd ref="-4"/>
    <nd ref="-5"/>
    <tag k="bla" v="1111"/>
    <tag k="OBJECTID" v="12345"/>
    <tag k="Short" v="old"/>
    <tag k="gml_id" v="F5371__358"/>
    <tag k="NAME" v="sdfsfd"/>
    <tag k="street" v="Blablastreet 15"/>
  </way>
</osm>

您可以使用saveXML将其写入文件。

读取XML文件并将属性写入特定标记

1 个答案: