r - recursively assign unique names to nodes in a data.tree object -


i working list of lists, collected xml chunk, represent object defined data.tree package r. example below seems work, , can extract elements data.tree representation of list of lists. however, cannot figure out how use of text-formatting or visualization options (e.g. igraph) due fact "child" elements of each list not uniquely labeled.

ideally, recursively re-name "children" serial number. example, convert this:

    children     |-- rulerule     |-- rulerule     |-- rulerule

to this:

    children     |-- rulerule_01     |-- rulerule_02     |-- rulerule_03

or better, re-name "children" according attribute such

children

    |-- rulerule_15976     |-- rulerule_49444     |-- rulerule_15748

here a similar question almost looking for. not sure if use of data.tree functionality simplify re-naming of children elements, or if should done before initializing data.tree object. tree-traversal capabilities of data.tree seem right route, since types of data using can have multiple set of children, @ level.

a self-contained example:

library(data.tree)  # typical list l <- structure(list(rulestart = structure(list(children = structure(list( ruleoperator = structure(list(children = structure(list(rulerule = structure(list(     children = null, refid = "49446"), .names = c("children",  "refid")), rulerule = structure(list(children = null, refid = "15976"), .names = c("children",  "refid")), rulerule = structure(list(children = null, refid = "49444"), .names = c("children",  "refid")), rulerule = structure(list(children = null, refid = "15748"), .names = c("children",  "refid")), rulerule = structure(list(children = null, refid = "49440"), .names = c("children",  "refid")), rulerule = structure(list(children = null, refid = "15746"), .names = c("children",  "refid")), rulerule = structure(list(children = null, refid = "49449"), .names = c("children",  "refid"))), .names = c("rulerule", "rulerule", "rulerule",  "rulerule", "rulerule", "rulerule", "rulerule")), type = "product"), .names = c("children",  "type"))), .names = "ruleoperator")), .names = "children")), .names = "rulestart")  # convert xml list data.tree object n <- fromlistexplicit(l$rulestart, namename=null, childrenname='children')  # check print(n, 'refid')

thanks author of data.tree suggestion. following function recursively re-name elements of list. seems work, comments or better solution welcome.

makenamesunique <- function(l) {   l.names <- names(l$children)   # multiple children types   tab <- table(l.names)   t.names <- names(tab)    # iterate on types   for(this.type in seq_along(t.names)) {     # iterate on duplicate names     # index type     idx <- which(l.names == t.names[this.type])     for(this.element in seq_along(idx)) {       # make copy of chunk of tree       l.sub <- l$children[[idx[this.element]]]       # if terminal leaf re-name , continue       if(is.null(l.sub$children)) {         # print('leaf')         names(l$children)[idx[this.element]] <- paste0(t.names[this.type], '_', this.element)       }       # otherwise re-name , step element , apply function recursively       else {         # print('branch')         names(l$children)[idx[this.element]] <- paste0(t.names[this.type], '_', this.element)         # fix branch , splice tree         l$children[[idx[this.element]]] <- makenamesunique(l.sub)       }     }   }    return(l) }

Comments

Post a Comment

Popular posts from this blog

java - pagination of xlsx file to XSSFworkbook using apache POI -

right in code, reading xlsx file, xssfworkbook, , writing database. but, when size of xlsx file increases, causes outofmemory error. can not increase server size, or divide xlsx file pieces. tried loading workbook using file (instead of inputstream), didn't either. i looking way read 10k rows @ time (instead of entire file @ once) , iteratively write workbook , database. is there way apache poi? poi contains called "eventmodel" designed purpose. it's mentioned in faq : the ss eventmodel package api reading excel files without loading whole spreadsheet memory. require more knowledge on part of user, reduces memory consumption more tenfold. based on awt event model in combination sax. if need read-only access, best way it. however, may want double check first if issue somewhere else. check out this item : i think poi using memory! can do? 1 comes quite lot, reason isn't might think. so, first thing check - what's source of prob...
Read more

Unlimited choices in BASH case statement -

consider simple bash snippet: case $option in 1) image=${options[0]%.tar} ;; 2) image=${options[1]%.tar} ;; 3) image=${options[2]%.tar} ;; 4) image=${options[3]%.tar} ;; *) echo "invalid option" exit 1 esac in real script numbers goes 30. makes pretty long. can somehow specify cases variable? something this: case $option in $i) image=${options[$(($i-1))]%.tar} any pointer appreciated. you can match against multiple patterns in single clause: case $option in 1|2|3: echo "$option one, 2 or three" ;; esac if still typing you, can use simple pattern matching: case $option in # following matches # - single-digit numbers 0-9 # - two-digit numbers starting either 1 or 2 # - number 30 [0-9]|[12][0-9]|30) image=${options[$(($option-1))]%.tar} ;; *) echo "invalid option" 1>&2 exit 1 esac
Read more

apache - How do I stop my index.php being run twice for every user -

we've got webapp initial html served using apache , php. i noticed index.php being run twice every request. seems caused / effected rewrite rules in our .htaccess - rewritecond %{http_host} ^(www\.|hotels\.)ourdomain\.com$ [nc,or] rewritecond %{server_name} ^(www\.|hotels\.)ourdomain\.com$ [nc] rewriterule (.*) http://ourdomain.com/$1 [r=301] rewriterule ^hotels/([^/]+)/?\??(.*)$ ?d=$1&$2 [qsa] the final rule moving parameter url path query string. i.e. http://ourdomain.com/hotels/vegas?someparam=1 becomes http://ourdomain.com?d=vegas&someparam=1 if go directly query string version index.php run once. if use url redirected, index.php run twice (i'm checking adding error_log('end of index.php') file). so example going http://ourdomain.com/hotels/paris hits file twice http://ourdomain.com?d=paris hits once. i've seen this question , had @ blog mentioned , , can't find empty string url's (i've tried using yslow process). ...
Read more