R에 data.tree를 저장하는 방법?

Question

data.tree 패키지의 설명서를 살펴 보았습니다. 그러나 내가 만든 data.tree 구조를 저장하는 방법을 찾지 못했습니다. 다른 구조 (예 : data.frame)로 변환하지 않고 data.tree 구조를 작성한 다음 저장하는 방법이 있습니까?

Answer 1

당신이 말하는 어떤 유형의 객체인지 전혀 알 수 없기 때문에 귀하의 질문이 다소 모호합니다. 그러나 이것은 나를 위해 작동하는 것 같습니다.

data("acme") 
a = acme 
class(a) 
[1] "Node" "R6" 

x = tempdir() 
setwd(tempdir()) 
save(a, file = 'test.Rdata') 
rm(a) 
load('test.Rdata') 
a 

Answer 2

data(acme) 
print(acme) 
acme$fieldsAll 
acme$count 
acme$totalCount 
acme$isRoot 
acme$height 
print(acme, "p", "cost") 

outsource <- acme$IT$Outsource 
class(outsource) 
print(outsource) 
outsource$fields 
outsource$isLeaf 
outsource$level 
outsource$path 
outsource$p 
outsource$parent$name 
outsource$root$name 
outsource$expCost <- outsource$p * outsource$cost 
print(acme, "expCost") 

acme$Get("p") 
acme$Do(function(x) x$expCost <- x$p * x$cost) 
acme$Get("expCost", filterFun = isLeaf) 

ToDataFrameTable(acme, "name", "p", "cost", "level", "pathString") 
ToDataFrameTree(acme, "name", "p", "cost", "level") 
ToDataFrameNetwork(acme, "p", "cost") 

tree <- ToDataFrameTree(acme, "name", "p", "cost", "level") 
saveRDS(tree, "tree.RDS") 

it_works <- readRDS("tree.RDS") 
it_works 

      levelName      name p cost level 
1 Acme Inc.          Acme Inc. NA  NA  1 
2 ¦--Accounting         Accounting NA  NA  2 
3 ¦ ¦--New Software       New Software 0.50 1000000  3 
4 ¦ °--New Accounting Standards New Accounting Standards 0.75 500000  3 
5 ¦--Research          Research NA  NA  2 
6 ¦ ¦--New Product Line     New Product Line 0.25 2000000  3 
7 ¦ °--New Labs         New Labs 0.90 750000  3 
8 °--IT             IT NA  NA  2 
9  ¦--Outsource        Outsource 0.20 400000  3 
10  ¦--Go agile         Go agile 0.05 250000  3 
11  °--Switch to R       Switch to R 1.00 50000  3 
> 

Answer 3

이 관련 질문에 대한 답변입니다 : 어떻게 다른 객체로 data.tree을 저장합니까?

여러 가지 방법으로 원본 data.tree를 변경하기 때문에 이것은 매우 중요합니다.

# What one would expect 
myDataTree_clone <- myDataTree 

"복제본"을 변경하면 실제로 myDataTree 개체도 변경됩니다.

# What one should do instead 
myDataTree_clone <- Clone(myDataTree) 

이제 원래 myDataTree 객체를 변경하지 않고 복제 작업 할 수 있습니다.