xml parsing - How to convert nested list to xml Using R -


i've kml file , wanted add nodes @ specific place it, wrote code .. 

library(xml) kml.text <- readlines("c:/users/pc/downloads/googletraffic/maps/all maps.kml") xml_data <- xmltolist(kml.text)   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(all$traveltime),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(all$traveltime),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(all$traveltime),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  description <- xmltolist(top) xml_data$document$folder$folder$folder$placemark$description <- description

that way found add html code specific position in xml code, when convert "top" "description" , structure of data got changed , become useless,so there way attached html code xml_data without converting "top" list ?

and got function convert nested list xml, problem code writen in html convert xml , not useful anymore.

root <- newxmlnode("root") listtoxml <- function(node, sublist){     for(i in 1:length(sublist)){         child <- newxmlnode(names(sublist)[i], parent=node);          if (typeof(sublist[[i]]) == "list"){             listtoxml(child, sublist[[i]])         }         else{             xmlvalue(child) <- sublist[[i]]         }     }  } listtoxml(root,xml_data)

this fuction written jeff allen @ link

so, please there way attach html code xml , when parsing list xml, html code still html , not convert xml ?

here's kml file

the htmltools package lets build out nested nodes , can use xmlparsestring() function nodes:

library(htmltools) library(magrittr)  tag("a", list(attr1="a1", attr2="a2",                tag("b", list(tag("c", list(attr1="c1", "c content")),                              "b content")),                "a content"))  %>%    tostring() %>%    xmlparsestring() %>%   str() ## classes 'xmlinternalelementnode', 'xmlinternalnode', 'xmlabstractnode' <externalptr>

-

Comments

Post a Comment

Popular posts from this blog

unity3d - Rotate an object to face an opposite direction -

i have object , b. when click on object b, rotates object b (a faces b). b doesn't face a. need following : when faces b, need face opposite direction. have code rotating @ b. how rotate face opposite direction after that? vector3 targetdirection = target - transform.position; float step = speed * time.deltatime; vector3 newdirection = vector3.rotatetowards (turretdome.transform.forward, targetdirection, step, 0.0f); turretdome.transform.rotation = quaternion.lookrotation (newdirection); you object facing object b, want inverse direction of object after that? objecta.transform.rotation = quaternion.inverse(objecta.transform.rotation) but lets assume example turretdome object a, (negate direction): turretdome.transform.rotation = quaternion.lookrotation (-newdirection); naturally, both of these snippets not show how smoothen rotation, seem know how use time.deltatime. just incase unsure, quaternion.lerp this
Read more

angular - Is it possible to get native element for formControl? -

i've got angular2 reactive form . created formcontrol s , assigned input fields by [formcontrol]=... . understand creates nativeelement <-> formcontrol link. my question: possible nativeelement formcontrol ? wanna myformcontrol.nativeelement.focus() i can share 1 terrible solution works me. in reactive forms can use either 1) formcontroldirective ts mycontrol = new formcontrol('') template <input type="text" [formcontrol]="mycontrol"> or 2) formcontrolname ts myform: formgroup; constructor(private fb: formbuilder) {} ngoninit() { this.myform = this.fb.group({ foo: '' }); } template <form [formgroup]="myform"> <input type="text" formcontrolname="foo"> </form> so these directives write patch like 1) formcontroldirective const originformcontrolngonchanges = formcontroldirective.prototype.ngonchanges; formcontroldirective.proto
Read more

javascript - Why jQuery Select box change event is now working? -

i working on product filters user select select box according his/her preference not getting selected value user in jquery. html code:- <select name="product_filter" id="product_filter"> <option value="price_low_first">price : low high</option> <option value="price_high_first">price : high low</option> <option value="latest">latest</option> <option value="popular">most popular</option> </select> jquery code: $(function () { $("#product_filter").change(function () { alert("hi") var selectedtext = $(this).find("option:selected").text(); var selectedvalue = $(this).val(); alert("selected text: " + selectedtext + " value: " + selectedvalue); }); }); hi believe code perfect. once please check jquery.min.js
Read more