R内の子ノードとして他のツリーを使用してdata.treeを構築できますか？

Question

私が使用してWebページのソースや建物の木からコメントデータを抽出しています：postDataはxml_find_allとpostData[[1]]を使用して抽出されたノードのリストがある

`tmpTree <- FromListExplicit(postData[[1]], nameName = "poster", childrenName = "child")` 

は、新しいツリーがリストから作成されるたびに変更されます。ノードを抽出する関数は、私が8月に投稿したこのSO questionにあり、RSelenium自身の作成者、jdharrisonによって感謝して答えられました。私は、その後のノードになる他のスリーで構成された一本の木で終わること

newTree <- Node$new("Tree67770) 
newTree$AddChild(tmpTree) 

：私はお願いしたいと思い何

は、私は例えば木の木のようなものを作ることができるかどうかであります最終的な木と私は大きな木をプロットするとき私はすべての名前（ポスターの）を見ることができます。

tmpTreeは文字ではなく、リストであるため、上記のように動作せず、エラーcannot coerce type 'environment' to vector of type 'character'がわかります。私は、各ツリーをdata.frameに変更してから、すべてのdata.frameを追加して1つの大きなツリーを作成することを考えましたが、それは長すぎると扱いにくいようでした。どんな助けでも大歓迎です。ありがとう。

例dput追加する

編集： 例1：

structure(list(postId = 2794984430, date = "Thursday, July 21, 2016 11:17 AM", 
poster = "MMM", disqusUname = "disqus_rVXuxnq9MP", message = "\rI am against abortion but I am in favour of contraceptives. Is the MAP a (emergency) contraceptive or not? Is the MAP abortive or not? Unless there is clear unequivocal evidence about this, the circus will continue!\r", 
child = list(structure(list(postId = 2795948275, date = "Thursday, July 21, 2016 9:07 PM", 
    poster = "David Farrugia", disqusUname = "davidfarrugia", 
    message = "\rIt all depends when the soul has been installed into the egg. LOL\r"), .Names = c("postId", 
"date", "poster", "disqusUname", "message")))), .Names = c("postId", "date", "poster", "disqusUname", "message", "child")) 

例2：

structure(list(postId = 2795142611, date = "Thursday, July 21, 2016 2:04 PM", 
poster = "David", disqusUname = "disqus_tTjwlqxma8", message = "\rthis reminds me of the Divorce debate. the dinosaurs from church and the parliament seem to be against anything 'god' does not allow. can they accept the fact that not all of us are into religious fairy tales?\r", 
child = list(structure(list(postId = 2796284665, date = "Friday, July 22, 2016 12:30 AM", 
    poster = "Nessy Testa", disqusUname = "NICOTI", message = "\rno they want to shove their \"morals\" down our throats.. then they go to repent their sins..\r"), .Names = c("postId", 
"date", "poster", "disqusUname", "message")))), .Names = c("postId", "date", "poster", "disqusUname", "message", "child")) 

上記の各例

ルートと子ノードとを有するツリーを生成しますいくつかの他の6つの深さ以上のように彼らのサイズのために選ばれた。

私は次に使用して、新しいノードに変換しようとしたツリー抽出するtmpTree <- FromListExplicit(postData[[Example 1 or 2]], nameName = "poster", childrenName = "child")を使用する：できるだけ早くnewNode <- Node$new(tmpTree)が実行されたとしてError in as.vector(x, "character") : cannot coerce type 'environment' to vector of type 'character'の結果と

newTree <- Node$new("root6770") 
newNode <- Node$new(tmpTree) 
newTree$AddChildNode(newNode) 

を。

この例で私は自分自身をより良く説明してくれることを願っています。ご協力いただきありがとうございます。

Answer 1

はい、可能です。既存のノードにサブツリーを追加するNode$AddChildNodeの代わりNode$newを使用してください：私は家に帰るとき

library(data.tree) 
newTree <- Node$new("roottree") 
tmpTree <- Node$new("subtree") 
newTree$AddChildNode(tmpTree)