Отформатируйте файл SLD (xml) с линиями разрыва и отступами в `xml2`

Я программно пишу множество SDL-файлов для геосервера, которые по своей сути являются XML-файлами. Я использую {xml2}, и хотя я получаю правильный формат в небольшом репрексе (каждый тег в одной строке и с отступом), в моем полном примере это больше не работает.

Я бы предположил, что геосервер не заботится о переносах строк, но администраторы обслуживаемого сервиса настаивают на том, что файл SLD не работает, если в нем нет правильных отступов.

Как я могу заставить выходной файл разместить один тег в строке с правильным отступом?

Небольшой репрекс, который правильно форматируется:

library(xml2)

x <- read_xml("<parent></parent>")
xml_add_child(x, "child", type = "child")
child <- xml_find_first(x, ".//child")

for (i in 1:5) {
  xml_add_child(child, "small_child",
                label = i,
                .where = i)
}

x
#> {xml_document}
#> <parent>
#> [1] <child type = "child">\n  <small_child label = "1"/>\n  <small_child label = "2 ...

write_xml(x, "small_reprex.sld")

^{Created on 2024-04-17 with reprex v2.1.0}

Выходной файл с правильными отступами:

<?xml version = "1.0" encoding = "UTF-8"?>
<parent>
  <child type = "child">
    <small_child label = "1"/>
    <small_child label = "2"/>
    <small_child label = "3"/>
    <small_child label = "4"/>
    <small_child label = "5"/>
  </child>
</parent>

Большой репрекс, не делающий отступов в тегах:

library(xml2)

xml_file <- read_xml('<?xml version = "1.0" encoding = "UTF-8"?>
<sld:StyledLayerDescriptor xmlns = "http://www.opengis.net/sld" xmlns:sld = "http://www.opengis.net/sld" xmlns:ogc = "http://www.opengis.net/ogc" xmlns:gml = "http://www.opengis.net/gml" version = "1.0.0">
  <sld:NamedLayer>
    <sld:Name>SLD template for qualitative rasters</sld:Name>
    <sld:UserStyle>
      <sld:Name>SLD template for qualitative rasters</sld:Name>
      <sld:FeatureTypeStyle>
        <sld:Name>name</sld:Name>      
        <sld:Rule>
                <sld:RasterSymbolizer>
                </sld:RasterSymbolizer>
        </sld:Rule>
      </sld:FeatureTypeStyle>
    </sld:UserStyle>
  </sld:NamedLayer>
</sld:StyledLayerDescriptor>')

namedlayer <- xml_find_first(xml_file, ".//sld:NamedLayer")
namelayer <- xml_find_first(namedlayer, ".//sld:Name")
xml_text(namelayer) <- "Name changed"

userstyle <- xml_find_first(namedlayer, ".//sld:UserStyle")
namelayer <- xml_find_first(userstyle, ".//sld:Name")
xml_text(namelayer) <- "Name changed"

symb <- xml_find_first(xml_file, ".//sld:RasterSymbolizer")
xml_add_child(symb, "sld:ColorMap", type = "values", .where = 1)

colormap <- xml_find_first(xml_file, ".//sld:ColorMap")

labels <- letters[1:5]
colors <- viridis::turbo(5)

for (i in seq_along(labels)) {
  xml_add_child(colormap, "sld:ColorMapEntry",
                color = colors[[i]],
                quantity = i,
                label = labels[[i]],
                .where = i)
}

write_xml(xml_file, "reprex.sld", format = c("format", "as_xml"))

^{Created on 2024-04-17 with reprex v2.1.0}

А вот выходной файл, в котором все записи карты цветов помещаются в одну строку:

<?xml version = "1.0" encoding = "UTF-8"?>
<sld:StyledLayerDescriptor xmlns = "http://www.opengis.net/sld" xmlns:sld = "http://www.opengis.net/sld" xmlns:ogc = "http://www.opengis.net/ogc" xmlns:gml = "http://www.opengis.net/gml" version = "1.0.0">
  <sld:NamedLayer>
    <sld:Name>Name changed</sld:Name>
    <sld:UserStyle>
      <sld:Name>Name changed</sld:Name>
      <sld:FeatureTypeStyle>
        <sld:Name>name</sld:Name>
        <sld:Rule>
          <sld:RasterSymbolizer>
                <sld:ColorMap type = "values"><sld:ColorMapEntry color = "#30123BFF" quantity = "1" label = "a"/><sld:ColorMapEntry color = "#28BBECFF" quantity = "2" label = "b"/><sld:ColorMapEntry color = "#A2FC3CFF" quantity = "3" label = "c"/><sld:ColorMapEntry color = "#FB8022FF" quantity = "4" label = "d"/><sld:ColorMapEntry color = "#7A0403FF" quantity = "5" label = "e"/></sld:ColorMap></sld:RasterSymbolizer>
        </sld:Rule>
      </sld:FeatureTypeStyle>
    </sld:UserStyle>
  </sld:NamedLayer>
</sld:StyledLayerDescriptor>