color scripter_test

# KOREA 
#     SEOUL    
#         A
#             a
#             b
#         B
#     GGD    
#         A
#         B
#         C
#     BUSAN
#         A
#         B
#     ULSAN
#         A
#             a
KoreaLN <- list(name="Korea", children = 
    list(
        list(name="SEOUL", children=list(list(name="A", children=list(list(name="a"), list(name="b"))), list(name="B"))), 
        list(name="BUSAN", children=list(list(name="A"), list(name="B"))), 
        list(name="GGD", children=list(list(name="A"), list(name="B"), list(name="C"))),
        list(name="ULSAN", children=list(list(name="A", children=list(list(name="a"))))) ))
d3Tree(List = KoreaLN, fontsize = 12, diameter = 800, zoom = TRUE, file = "test7.html", nodeColour = "#ff6f69", linkColour = "#ffcc5c", textColour = "black")
shell.exec("test7.html")