Добавление тега в файл KML Использование R

Я экспортировал kml-файл из Google Планета Земля Pro, состоящий из 37 Папок, каждая папка содержит количество «младших» папок, количество полных «младших» папок – 168, каждый «младший» имеет 3 метки.

У меня есть HTML-код, я сделал его с R и хочу импортировать этот kml-файл в R и поместить этот HTML-код в первую «метку» для каждой «младшей» папки, этот HTML-код не является постоянным, он имеет переменные как и значения в таблице в этом коде, и эти переменные будут привязаны к файлу данных, созданному для этой «младшей» папки, когда я отредактирую этот HTML-код, я поместил его в первую «метку» для этой «младшей» папки , и т. д. для других «второстепенных» папок.

есть ли fuction в R, который может добавить этот html-код в файл kml?

вот код «описания» в R.

URL <- paste("file:///C:/Users/pc/Downloads/Googletraffic/Tazbet/Autostrad;Helwan To Da2ery/",FileName,sep = "") library(XML) top = newXMLNode("description") table = newXMLNode("table ", attrs = c(width = 300, border = 1), parent = top) tbody <- newXMLNode("tbody",parent = tr) tr <- newXMLNode("tr",parent = table) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = max(Bey2ollak$V3),parent = tr) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = "MD",parent = tr) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = "PM",parent = tr) tr <- newXMLNode("tr",parent = table) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = max(Bey2ollak$V3),parent = tr) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = "MD",parent = tr) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = "PM",parent = tr) tr <- newXMLNode("tr",parent = table) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = max(Bey2ollak$V3),parent = tr) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = "MD",parent = tr) th <- newXMLNode("th",attrs = c(scope = "col"),scope1 = "PM",parent = tr) th <- newXMLNode("img",attrs = c(src = URL,width = "700",height= "777",alt=""),parent =top ) top 

вот вывод в консоли

  
5 MD PM
5 MD PM
5 MD PM

вот мой файл kml

я обнаружил, но не так эффективен, я открываю файл kml на NotePad ++, затем получаю корневой каталог и помещаю его в xml-файл, а затем читаю xml с помощью этого кода,

 Url < - "xml_data1.xml" data <- xmlTreeParse(Url) 

xmlTreeParse() разрешил мне анализировать XML-файл в виде списка, поэтому я мог добавить любую вещь в определенное место в XML-файле, и это код, который я использовал для добавления узла

 data$doc$children$Folder[[3]][[3]][[3]][["description"]] < - top 

будьте осторожны, что существует разница между XMLInternalElementNode и XMLNode , поэтому вы не можете использовать saveXML() прямо так.

 saveXML(data, file ="xml_data2.kml") 

вы должны сначала получить Корень данных

 xmlroot < - xmlRoot(data) saveXML(xmlroot, file ="xml_data2.xml") 

этот ответ для написания xml был написан здесь

то вы можете открыть xml_data2.xml с помощью NotePad ++ и получить то, что хотите, а затем поместить его снова в файл kml.