Nothing
tests/testthat/test-vtree.R
In vtree: Display Information About Nested Subsets of a Data Frame
test_that("text",{
expect_identical(vtree(FakeData,"Group Severity",horiz=FALSE,showvarnames=FALSE,text=list(Severity=c(Mild="\n*Excluding\nnew diagnoses*"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5 Node_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9 Node_3->Node_10 Node_3->Node_11\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<A<BR/>24 (52%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<B<BR/>22 (48%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_4[label=<Mild<BR/>10 (45%)<BR/><I>Excluding<BR/>new diagnoses</I>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<Moderate<BR/>8 (36%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_6[label=<Severe<BR/>4 (18%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_7[label=<NA<BR/>2> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_8[label=<Mild<BR/>9 (50%)<BR/><I>Excluding<BR/>new diagnoses</I>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<Moderate<BR/>8 (44%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_10[label=<Severe<BR/>1 (6%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_11[label=<NA<BR/>4> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Group = list(A = list(.n = 24, .pct = 52, Severity = list(
Mild = list(.n = 10, .pct = 45, .text = "\n*Excluding\nnew diagnoses*"),
Moderate = list(.n = 8, .pct = 36), Severe = list(.n = 4,
.pct = 18), `NA` = list(.n = 2, .pct = NA_real_))),
B = list(.n = 22, .pct = 48, Severity = list(Mild = list(
.n = 9, .pct = 50, .text = "\n*Excluding\nnew diagnoses*"),
Moderate = list(.n = 8, .pct = 44), Severe = list(
.n = 1, .pct = 6), `NA` = list(.n = 4, .pct = NA_real_))))))
)
expect_identical(vtree(FakeData,"Group Severity",horiz=FALSE,showvarnames=FALSE,
ttext=list(
c(Group="B",Severity="Mild",text="\n*Excluding\nnew diagnoses*"),
c(Group="A",text="\nSweden"),
c(Group="B",text="\nNorway"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5 Node_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9 Node_3->Node_10 Node_3->Node_11\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<A<BR/>24 (52%)<BR/>Sweden> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<B<BR/>22 (48%)<BR/>Norway> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_4[label=<Mild<BR/>10 (45%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<Moderate<BR/>8 (36%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_6[label=<Severe<BR/>4 (18%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_7[label=<NA<BR/>2> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_8[label=<Mild<BR/>9 (50%)<BR/><I>Excluding<BR/>new diagnoses</I>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<Moderate<BR/>8 (44%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_10[label=<Severe<BR/>1 (6%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_11[label=<NA<BR/>4> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Group = list(A = list(.n = 24, .pct = 52, .text = "\nSweden",
Severity = list(Mild = list(.n = 10, .pct = 45), Moderate = list(
.n = 8, .pct = 36), Severe = list(.n = 4, .pct = 18),
`NA` = list(.n = 2, .pct = NA_real_))), B = list(
.n = 22, .pct = 48, .text = "\nNorway", Severity = list(
Mild = list(.n = 9, .pct = 50, .text = "\n*Excluding\nnew diagnoses*"),
Moderate = list(.n = 8, .pct = 44), Severe = list(
.n = 1, .pct = 6), `NA` = list(.n = 4, .pct = NA_real_))))))
)
})
test_that("cdigits",{
expect_identical(vtree(FakeData,"Severity",summary="Score \nmean score: %mean%",cdigits=0,sameline=TRUE,horiz=FALSE),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild, 19 (48%)<BR/>mean score: 12 mv=1<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate, 16 (40%)<BR/>mean score: 17 mv=1<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe, 5 (12%)<BR/>mean score: 38<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA, 6<BR/>mean score: 15<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
.text = "\nmean score: 12 mv=1\n"), Moderate = list(.n = 16,
.pct = 40, .text = "\nmean score: 17 mv=1\n"), Severe = list(
.n = 5, .pct = 12, .text = "\nmean score: 38\n"), `NA` = list(
.n = 6, .pct = NA_real_, .text = "\nmean score: 15\n"))))
)
})
test_that("variable specifications",{
expect_identical(vtree(FakeData,"Ind*"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Ind1</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Ind2</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nNode_L3_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#31A354\">Ind3</FONT></FONT>> shape=none margin=0]\nNode_L2_0 -> Node_L3_0 [style=invisible arrowhead=none]\n\nNode_L4_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#E6550D\">Ind4</FONT></FONT>> shape=none margin=0]\nNode_L3_0 -> Node_L4_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4\nNode_2->Node_5 Node_2->Node_6\nNode_5->Node_7 Node_5->Node_8\nNode_7->Node_9 Node_7->Node_10\nNode_8->Node_11\nNode_6->Node_12 Node_6->Node_13 Node_6->Node_14\nNode_12->Node_15 Node_12->Node_16\nNode_13->Node_17\nNode_14->Node_18\nNode_3->Node_19 Node_3->Node_20\nNode_19->Node_21 Node_19->Node_22 Node_19->Node_23\nNode_21->Node_24 Node_21->Node_25\nNode_22->Node_26 Node_22->Node_27\nNode_23->Node_28\nNode_20->Node_29 Node_20->Node_30 Node_20->Node_31\nNode_29->Node_32 Node_29->Node_33\nNode_30->Node_34\nNode_31->Node_35\nNode_4->Node_36\nNode_36->Node_37\nNode_37->Node_38\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<0<BR/>23 (51%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<1<BR/>22 (49%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_5[label=<0<BR/>12 (52%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_6[label=<1<BR/>11 (48%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_7[label=<0<BR/>6 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_8[label=<1<BR/>6 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_9[label=<0<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_10[label=<1<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_11[label=<1<BR/>6 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_12[label=<0<BR/>6 (60%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_13[label=<1<BR/>4 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_14[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_15[label=<0<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_16[label=<1<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_17[label=<1<BR/>4 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_18[label=<1<BR/>1 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_19[label=<0<BR/>10 (45%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_20[label=<1<BR/>12 (55%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_21[label=<0<BR/>4 (44%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_22[label=<1<BR/>5 (56%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_23[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_24[label=<0<BR/>2 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_25[label=<1<BR/>2 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_26[label=<0<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_27[label=<1<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_28[label=<0<BR/>1 (100%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_29[label=<0<BR/>6 (55%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_30[label=<1<BR/>5 (45%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_31[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_32[label=<0<BR/>4 (67%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_33[label=<1<BR/>2 (33%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_34[label=<1<BR/>5 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_35[label=<1<BR/>1 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_36[label=<0<BR/>1 (100%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_37[label=<0<BR/>1 (100%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_38[label=<1<BR/>1 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Ind1 = list(`0` = list(.n = 23, .pct = 51, Ind2 = list(
`0` = list(.n = 12, .pct = 52, Ind3 = list(`0` = list(
.n = 6, .pct = 50, Ind4 = list(`0` = list(.n = 3,
.pct = 50), `1` = list(.n = 3, .pct = 50))),
`1` = list(.n = 6, .pct = 50, Ind4 = list(`1` = list(
.n = 6, .pct = 100))))), `1` = list(.n = 11,
.pct = 48, Ind3 = list(`0` = list(.n = 6, .pct = 60,
Ind4 = list(`0` = list(.n = 3, .pct = 50), `1` = list(
.n = 3, .pct = 50))), `1` = list(.n = 4, .pct = 40,
Ind4 = list(`1` = list(.n = 4, .pct = 100))),
`NA` = list(.n = 1, .pct = NA_real_, Ind4 = list(
`1` = list(.n = 1, .pct = 100))))))), `1` = list(
.n = 22, .pct = 49, Ind2 = list(`0` = list(.n = 10, .pct = 45,
Ind3 = list(`0` = list(.n = 4, .pct = 44, Ind4 = list(
`0` = list(.n = 2, .pct = 50), `1` = list(.n = 2,
.pct = 50))), `1` = list(.n = 5, .pct = 56,
Ind4 = list(`0` = list(.n = 2, .pct = 40), `1` = list(
.n = 3, .pct = 60))), `NA` = list(.n = 1, .pct = NA_real_,
Ind4 = list(`0` = list(.n = 1, .pct = 100))))),
`1` = list(.n = 12, .pct = 55, Ind3 = list(`0` = list(
.n = 6, .pct = 55, Ind4 = list(`0` = list(.n = 4,
.pct = 67), `1` = list(.n = 2, .pct = 33))),
`1` = list(.n = 5, .pct = 45, Ind4 = list(`1` = list(
.n = 5, .pct = 100))), `NA` = list(.n = 1,
.pct = NA_real_, Ind4 = list(`1` = list(.n = 1,
.pct = 100))))))), `NA` = list(.n = 1, .pct = NA_real_,
Ind2 = list(`0` = list(.n = 1, .pct = 100, Ind3 = list(
`0` = list(.n = 1, .pct = 100, Ind4 = list(`1` = list(
.n = 1, .pct = 100)))))))))))
expect_identical(vtree(FakeData,"Age<5"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Age</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<>=5<BR/>12 (31%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<<5<BR/>27 (69%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<NA<BR/>7> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Age = list(`>=5` = list(.n = 12, .pct = 31),
`<5` = list(.n = 27, .pct = 69), `NA` = list(.n = 7,
.pct = NA_real_))))
)
expect_identical(vtree(FakeData,"is.na:Severity"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">is.na:Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<not N/A<BR/>40 (87%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<N/A<BR/>6 (13%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, `is.na:Severity` = list(`not N/A` = list(.n = 40,
.pct = 87), `N/A` = list(.n = 6, .pct = 13))))
)
})
test_that("knitr",{
expect_identical(vtree(FakeData,"Severity Sex",as.if.knit=TRUE,pngknit=FALSE),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<F<BR/>11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<F<BR/>11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<M<BR/>5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
Sex = list(F = list(.n = 11, .pct = 58), M = list(.n = 8,
.pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50))))))
)
})
test_that("pruning",{
expect_identical(vtree(FakeData,"Severity Sex",prune=list(Severity=c("Mild","Moderate"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5\nNode_3->Node_6 Node_3->Node_7\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_4[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_6[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Severe = list(.n = 5, .pct = 12,
Sex = list(F = list(.n = 2, .pct = 40), M = list(.n = 3,
.pct = 60))), `NA` = list(.n = 6, .pct = NA_real_,
Sex = list(F = list(.n = 3, .pct = 50), M = list(.n = 3,
.pct = 50)))))))
expect_identical(vtree(FakeData,"Severity Sex",prunebelow=list(Severity=c("Mild","Moderate"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_4->Node_6 Node_4->Node_7\nNode_5->Node_8 Node_5->Node_9\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48),
Moderate = list(.n = 16, .pct = 40), Severe = list(.n = 5,
.pct = 12, Sex = list(F = list(.n = 2, .pct = 40),
M = list(.n = 3, .pct = 60))), `NA` = list(.n = 6,
.pct = NA_real_, Sex = list(F = list(.n = 3, .pct = 50),
M = list(.n = 3, .pct = 50)))))))
expect_identical(vtree(FakeData[is.na(FakeData$Severity),],"Group Severity Sex",keep=list(Group="B")),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Group</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nNode_L3_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#31A354\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L2_0 -> Node_L3_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2\nNode_2->Node_3\nNode_3->Node_4 Node_3->Node_5\n\nNode_1[label=<6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<B<BR/>4 (67%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_3[label=<NA<BR/>4> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_4[label=<F<BR/>2 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_5[label=<M<BR/>2 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 6L, .pct = 100,
Group = list(B = list(.n = 4, .pct = 67, Severity = list(
`NA` = list(.n = 0, .pct = NaN, Sex = list(F = list(.n = 2,
.pct = 50), M = list(.n = 2, .pct = 50)))))))))
})
test_that("getscript",{
expect_identical(vtree(FakeData,"Severity Sex",getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<F<BR/>11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<F<BR/>11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<M<BR/>5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, Severity = list(Mild = list(.n = 19,
.pct = 48, Sex = list(F = list(.n = 11, .pct = 58), M = list(
.n = 8, .pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50)))))))
expect_identical(vtree(FakeData,"Severity Sex",horiz=FALSE,plain=TRUE,getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.46, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.18]\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\">Severity</FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\">Sex</FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_6[label=<F<BR/>11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_7[label=<M<BR/>8 (42%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_8[label=<F<BR/>11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_9[label=<M<BR/>5 (31%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_10[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_11[label=<M<BR/>3 (60%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_12[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_13[label=<M<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, Severity = list(Mild = list(.n = 19,
.pct = 48, Sex = list(F = list(.n = 11, .pct = 58), M = list(
.n = 8, .pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50)))))))
expect_identical(vtree(FakeData,"Severity Sex",showlegend=TRUE,shownodelabels=FALSE,getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nsubgraph cluster_1 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L1_0 Node_L1_1 Node_L1_2 Node_L1_3 Node_L1_4}\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_1[label=<<FONT POINT-SIZE=\"14\">Mild, 19 (48%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> height=0]\nNode_L1_2[label=<<FONT POINT-SIZE=\"14\">Moderate, 16 (40%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> height=0]\nNode_L1_3[label=<<FONT POINT-SIZE=\"14\">Severe, 5 (12%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> height=0]\nNode_L1_4[label=<<FONT POINT-SIZE=\"14\">NA, 6</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> height=0]\n}\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nsubgraph cluster_2 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L2_0 Node_L2_1 Node_L2_2}\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L2_1[label=<<FONT POINT-SIZE=\"14\">F, 27 (59%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> height=0]\nNode_L2_2[label=<<FONT POINT-SIZE=\"14\">M, 19 (41%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> height=0]\n}\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, Severity = list(Mild = list(.n = 19,
.pct = 48, Sex = list(F = list(.n = 11, .pct = 58), M = list(
.n = 8, .pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50)))))))
})
test_that("vtree test ptable",{
expect_identical(vtree(FakeData,"Severity Age Pre Post",check.is.na=TRUE,ptable=TRUE),
structure(list(n = c(1, 1, 1, 1, 2, 4, 4, 32), pct = c(2, 2,
2, 2, 4, 9, 9, 70), MISSING_Severity = c("not N/A", "not N/A",
"not N/A", "not N/A", "N/A", "N/A", "not N/A", "not N/A"), MISSING_Age = c("N/A",
"not N/A", "not N/A", "not N/A", "N/A", "not N/A", "N/A", "not N/A"
), MISSING_Pre = c("N/A", "N/A", "N/A", "not N/A", "not N/A",
"not N/A", "not N/A", "not N/A"), MISSING_Post = c("not N/A",
"N/A", "not N/A", "N/A", "not N/A", "not N/A", "not N/A", "not N/A"
)), row.names = c(NA, -8L), class = "data.frame")
)})
test_that("vtree test ptable VennTable",{
expect_identical(VennTable(vtree(FakeData,"Severity Age Pre Post",check.is.na=TRUE,ptable=TRUE),sort=FALSE),
structure(c("1", "1", "1", "1", "2", "4", "4", "32", "46", "",
"", "2", "2", "2", "2", "4", "9", "9", "70", "100", "", "", "0",
"0", "0", "0", "2", "4", "0", "0", "", "6", "13", "1", "0", "0",
"0", "2", "0", "4", "0", "", "7", "15", "1", "1", "1", "0", "0",
"0", "0", "0", "", "3", "7", "0", "1", "0", "1", "0", "0", "0",
"0", "", "2", "4"), .Dim = c(11L, 6L), .Dimnames = list(c("",
"", "", "", "", "", "", "", "Total", "N", "pct"), c("n", "pct",
"MISSING_Severity", "MISSING_Age", "MISSING_Pre", "MISSING_Post"
)))
)})
test_that("vtree pattern tree test",{
expect_identical(vtree(FakeData,"Severity Age Group",pattern=TRUE,getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#FC9272\">pattern</FONT></FONT>> shape=none margin=0]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nNode_L3_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#31A354\">Age</FONT></FONT>> shape=none margin=0]\nNode_L2_0 -> Node_L3_0 [style=invisible arrowhead=none]\n\nNode_L4_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#E6550D\">Group</FONT></FONT>> shape=none margin=0]\nNode_L3_0 -> Node_L4_0 [style=invisible arrowhead=none]\n\nedge[style=solid, arrowhead=none]\n\nNode_2->Node_24\nNode_24->Node_25\nNode_25->Node_26\nNode_3->Node_27\nNode_27->Node_28\nNode_28->Node_29\nNode_4->Node_30\nNode_30->Node_31\nNode_31->Node_32\nNode_5->Node_33\nNode_33->Node_34\nNode_34->Node_35\nNode_6->Node_36\nNode_36->Node_37\nNode_37->Node_38\nNode_7->Node_39\nNode_39->Node_40\nNode_40->Node_41\nNode_8->Node_42\nNode_42->Node_43\nNode_43->Node_44\nNode_9->Node_45\nNode_45->Node_46\nNode_46->Node_47\nNode_10->Node_48\nNode_48->Node_49\nNode_49->Node_50\nNode_11->Node_51\nNode_51->Node_52\nNode_52->Node_53\nNode_12->Node_54\nNode_54->Node_55\nNode_55->Node_56\nNode_13->Node_57\nNode_57->Node_58\nNode_58->Node_59\nNode_14->Node_60\nNode_60->Node_61\nNode_61->Node_62\nNode_15->Node_63\nNode_63->Node_64\nNode_64->Node_65\nNode_16->Node_66\nNode_66->Node_67\nNode_67->Node_68\nNode_17->Node_69\nNode_69->Node_70\nNode_70->Node_71\nNode_18->Node_72\nNode_72->Node_73\nNode_73->Node_74\nNode_19->Node_75\nNode_75->Node_76\nNode_76->Node_77\nNode_20->Node_78\nNode_78->Node_79\nNode_79->Node_80\nNode_21->Node_81\nNode_81->Node_82\nNode_82->Node_83\nNode_22->Node_84\nNode_84->Node_85\nNode_85->Node_86\nNode_23->Node_87\nNode_87->Node_88\nNode_88->Node_89\n\n\nNode_2[label=<5 (11%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_3[label=<4 (9%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_4[label=<4 (9%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_5[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_6[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_7[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_8[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_9[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_10[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_11[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_12[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_13[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_14[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_15[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_16[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_17[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_18[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_19[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_20[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_21[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_22[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_23[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_24[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_25[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_26[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_27[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_28[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_29[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_30[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_31[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_32[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_33[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_34[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_35[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_36[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_37[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_38[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_39[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_40[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_41[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_42[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_43[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_44[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_45[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_46[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_47[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_48[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_49[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_50[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_51[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_52[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_53[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_54[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_55[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_56[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_57[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_58[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_59[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_60[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_61[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_62[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_63[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_64[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_65[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_66[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_67[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_68[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_69[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_70[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_71[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_72[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_73[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_74[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_75[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_76[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_77[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_78[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_79[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_80[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_81[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_82[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_83[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_84[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_85[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_86[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_87[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_88[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_89[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, pattern = list(`Mild 4 B` = list(.n = 5,
.pct = 11, Severity = list(Mild = list(.n = 5, .pct = 100,
Age = list(`4` = list(.n = 5, .pct = 100, Group = list(
B = list(.n = 0, .pct = 0))))))), `Moderate 3 B` = list(
.n = 4, .pct = 9, Severity = list(Moderate = list(.n = 0,
.pct = 0, Age = list(`3` = list(.n = 4, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Mild 3 A` = list(.n = 4, .pct = 9, Severity = list(Mild = list(
.n = 4, .pct = 100, Age = list(`3` = list(.n = 4,
.pct = 100, Group = list(A = list(.n = 4, .pct = 100))))))),
`Moderate 5 A` = list(.n = 3, .pct = 7, Severity = list(
Moderate = list(.n = 0, .pct = 0, Age = list(`5` = list(
.n = 3, .pct = 100, Group = list(A = list(.n = 3,
.pct = 100))))))), `Moderate 4 A` = list(.n = 3,
.pct = 7, Severity = list(Moderate = list(.n = 0,
.pct = 0, Age = list(`4` = list(.n = 3, .pct = 100,
Group = list(A = list(.n = 3, .pct = 100))))))),
`Mild NA A` = list(.n = 3, .pct = 7, Severity = list(
Mild = list(.n = 3, .pct = 100, Age = list(`NA` = list(
.n = 3, .pct = NA_real_, Group = list(A = list(
.n = 3, .pct = 100))))))), `Mild 5 B` = list(
.n = 3, .pct = 7, Severity = list(Mild = list(.n = 3,
.pct = 100, Age = list(`5` = list(.n = 3, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Severe 5 A` = list(.n = 2, .pct = 4, Severity = list(
Severe = list(.n = 0, .pct = 0, Age = list(`5` = list(
.n = 2, .pct = 100, Group = list(A = list(.n = 2,
.pct = 100))))))), `NA NA B` = list(.n = 2,
.pct = 4, Severity = list(`NA` = list(.n = 0, .pct = NaN,
Age = list(`NA` = list(.n = 2, .pct = NA_real_,
Group = list(B = list(.n = 0, .pct = 0))))))),
`NA 3 B` = list(.n = 2, .pct = 4, Severity = list(`NA` = list(
.n = 0, .pct = NaN, Age = list(`3` = list(.n = 2,
.pct = 100, Group = list(B = list(.n = 0, .pct = 0))))))),
`Moderate 5 B` = list(.n = 2, .pct = 4, Severity = list(
Moderate = list(.n = 0, .pct = 0, Age = list(`5` = list(
.n = 2, .pct = 100, Group = list(B = list(.n = 0,
.pct = 0))))))), `Moderate 4 B` = list(.n = 2,
.pct = 4, Severity = list(Moderate = list(.n = 0,
.pct = 0, Age = list(`4` = list(.n = 2, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Mild 4 A` = list(.n = 2, .pct = 4, Severity = list(Mild = list(
.n = 2, .pct = 100, Age = list(`4` = list(.n = 2,
.pct = 100, Group = list(A = list(.n = 2, .pct = 100))))))),
`Severe NA A` = list(.n = 1, .pct = 2, Severity = list(
Severe = list(.n = 0, .pct = 0, Age = list(`NA` = list(
.n = 1, .pct = NA_real_, Group = list(A = list(
.n = 1, .pct = 100))))))), `Severe 4 B` = list(
.n = 1, .pct = 2, Severity = list(Severe = list(.n = 0,
.pct = 0, Age = list(`4` = list(.n = 1, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Severe 3 A` = list(.n = 1, .pct = 2, Severity = list(
Severe = list(.n = 0, .pct = 0, Age = list(`3` = list(
.n = 1, .pct = 100, Group = list(A = list(.n = 1,
.pct = 100))))))), `NA 5 A` = list(.n = 1,
.pct = 2, Severity = list(`NA` = list(.n = 0, .pct = NaN,
Age = list(`5` = list(.n = 1, .pct = 100, Group = list(
A = list(.n = 1, .pct = 100))))))), `NA 4 A` = list(
.n = 1, .pct = 2, Severity = list(`NA` = list(.n = 0,
.pct = NaN, Age = list(`4` = list(.n = 1, .pct = 100,
Group = list(A = list(.n = 1, .pct = 100))))))),
`Moderate NA A` = list(.n = 1, .pct = 2, Severity = list(
Moderate = list(.n = 0, .pct = 0, Age = list(`NA` = list(
.n = 1, .pct = NA_real_, Group = list(A = list(
.n = 1, .pct = 100))))))), `Moderate 3 A` = list(
.n = 1, .pct = 2, Severity = list(Moderate = list(
.n = 0, .pct = 0, Age = list(`3` = list(.n = 1,
.pct = 100, Group = list(A = list(.n = 1, .pct = 100))))))),
`Mild 5 A` = list(.n = 1, .pct = 2, Severity = list(Mild = list(
.n = 1, .pct = 100, Age = list(`5` = list(.n = 1,
.pct = 100, Group = list(A = list(.n = 1, .pct = 100))))))),
`Mild 3 B` = list(.n = 1, .pct = 2, Severity = list(Mild = list(
.n = 1, .pct = 100, Age = list(`3` = list(.n = 1,
.pct = 100, Group = list(B = list(.n = 0, .pct = 0)))))))))))
})
test_that("VennTable",{
expect_identical(VennTable(vtree(FakeData,"Severity Age Group",check.is.na=TRUE,ptable=TRUE),sort=FALSE),
structure(c("2", "4", "5", "35", "46", "", "", "4", "9", "11",
"76", "100", "", "", "2", "4", "0", "0", "", "6", "13", "2",
"0", "5", "0", "", "7", "15", "0", "0", "0", "0", "", "0", "0"
), .Dim = c(7L, 5L), .Dimnames = list(c("", "", "", "", "Total",
"N", "pct"), c("n", "pct", "MISSING_Severity", "MISSING_Age",
"MISSING_Group"))))
expect_identical(VennTable(vtree(FakeData,"Ind1 Ind2",ptable=TRUE),markdown=TRUE),
" | | | | | |Total|N|%\n-|-|-|-|-|-|-|-|-\nn|1|10|11|12|12|46| | \n%|2|22|24|26|26|100| | \nInd2| | |✔| |✔| |23|50\nInd1|-|✔| | |✔| |22|48"
)
})
test_that("CONSORT",{
expect_identical(vtree(FakeRCT,"eligible randomized group followup analyzed",plain=TRUE,
keep=list(eligible="Eligible",randomized="Randomized",followup="Followed up"),
horiz=FALSE,showvarnames=FALSE,title="Assessed for eligibility"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.46, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.18]\n\nedge[style=solid]\nNode_1->Node_2\nNode_2->Node_3\nNode_3->Node_4 Node_3->Node_5\nNode_4->Node_6\nNode_6->Node_7\nNode_5->Node_8\nNode_8->Node_9\n\nNode_1[label=<Assessed for eligibility<BR/>12> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Eligible<BR/>8 (67%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_3[label=<Randomized<BR/>7 (88%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_4[label=<A<BR/>4 (57%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#6BAED6> ]\nNode_5[label=<B<BR/>3 (43%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#6BAED6> ]\nNode_6[label=<Followed up<BR/>3 (75%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#4292C6> ]\nNode_7[label=<Analyzed<BR/>3 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#2171B5> ]\nNode_8[label=<Followed up<BR/>3 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#4292C6> ]\nNode_9[label=<Analyzed<BR/>3 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#2171B5> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 12L,
.pct = 100, eligible = list(Eligible = list(.n = 8, .pct = 67,
randomized = list(Randomized = list(.n = 7, .pct = 88,
group = list(A = list(.n = 4, .pct = 57, followup = list(
`Followed up` = list(.n = 3, .pct = 75, analyzed = list(
Analyzed = list(.n = 3, .pct = 100))))), B = list(
.n = 3, .pct = 43, followup = list(`Followed up` = list(
.n = 3, .pct = 100, analyzed = list(Analyzed = list(
.n = 3, .pct = 100)))))))))))))
})
test_that("summary",{
expect_identical(vtree(FakeData,summary="Score"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nedge[style=solid]\n\n\nNode_1[label=<46<BR/>Score<BR/>missing 2<BR/>mean 17.1 SD 20.2<BR/>med 9.0 IQR 4.0, 23.5<BR/>range 0.0, 99.0<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100)))
expect_identical(vtree(FakeData,summary="Severity"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nedge[style=solid]\n\n\nNode_1[label=<46<BR/>Severity<BR/>Mild: 19 (48%)<BR/>Moderate: 16 (40%)<BR/>Severe: 5 (12%)<BR/>NA: 6<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100)))
expect_identical(
{dessert <- build.data.frame(
c( "group","IceCream___1","IceCream___2","IceCream___3"),
list("A", 1, 0, 0, 7),
list("A", 1, 0, 1, 2),
list("A", 0, 0, 0, 1),
list("B", 1, 0, 1, 1),
list("B", 1, 0, 0, 2),
list("B", 0, 1, 1, 1),
list("B", 0, 0, 0, 1))
attr(dessert$IceCream___1,"label") <- "Ice cream (choice=Chocolate)"
attr(dessert$IceCream___2,"label") <- "Ice cream (choice=Vanilla)"
attr(dessert$IceCream___3,"label") <- "Ice cream (choice=Strawberry)"
vtree(dessert,summary="stemc:IceCream",splitwidth=Inf)
},
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nedge[style=solid]\n\n\nNode_1[label=<15<BR/>Chocolate: 9 (60%)<BR/>Chocolate+Strawberry: 3 (20%)<BR/>*None: 2 (13%)<BR/>Vanilla+Strawberry: 1 (7%)<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 15L,
.pct = 100)))
expect_identical(vtree(FakeData,"Severity",horiz=FALSE,showvarnames=FALSE,splitwidth=Inf,sameline=TRUE,summary=c("Score \nScore: mean %meanx% SD %SD%","Pre \nPre: range %range%")),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild, 19 (48%)<BR/>Score: mean 12.1 SD 14.6 mv=1<BR/>Pre: range -2.5, 1.9 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate, 16 (40%)<BR/>Score: mean 17.1 SD 24.4 mv=1<BR/>Pre: range -1.5, 2.1 mv=1<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe, 5 (12%)<BR/>Score: mean 37.6 SD 16.8<BR/>Pre: range -1.4, 0.5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA, 6<BR/>Score: mean 15.0 SD 19.4<BR/>Pre: range -1.5, 0.8<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
.text = "\nScore: mean 12.1 SD 14.6 mv=1\nPre: range -2.5, 1.9 mv=2\n"),
Moderate = list(.n = 16, .pct = 40, .text = "\nScore: mean 17.1 SD 24.4 mv=1\nPre: range -1.5, 2.1 mv=1\n"),
Severe = list(.n = 5, .pct = 12, .text = "\nScore: mean 37.6 SD 16.8\nPre: range -1.4, 0.5\n"),
`NA` = list(.n = 6, .pct = NA_real_, .text = "\nScore: mean 15.0 SD 19.4\nPre: range -1.5, 0.8\n")))))
expect_identical(vtree(FakeData,"Sex",summary="Severity=Mild \nMild: %npct%%leafonly%"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\n\nNode_1[label=<46<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<F<BR/>27 (59%)<BR/>Mild: 11 (46%) mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<M<BR/>19 (41%)<BR/>Mild: 8 (50%) mv=3<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Sex = list(F = list(.n = 27, .pct = 59, .text = "\nMild: 11 (46%) mv=3\n"),
M = list(.n = 19, .pct = 41, .text = "\nMild: 8 (50%) mv=3\n")))))
})
test_that("text wrapping",{
expect_identical(vtree(FakeData,"Severity",labelnode=list(Severity=c("Extremely bad"="Severe")),splitwidth=5),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Extremely<BR/>bad<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48),
Moderate = list(.n = 16, .pct = 40), Severe = list(.n = 5,
.pct = 12), `NA` = list(.n = 6, .pct = NA_real_)))))
})
test_that("labelnode",{
expect_identical(vtree(FakeData,"Group Sex",horiz=FALSE,labelnode=list(Sex=c(Male="M",Female="F"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Group</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5\nNode_3->Node_6 Node_3->Node_7\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<A<BR/>24 (52%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<B<BR/>22 (48%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_4[label=<Female<BR/>18 (75%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<Male<BR/>6 (25%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_6[label=<Female<BR/>9 (41%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<Male<BR/>13 (59%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Group = list(A = list(.n = 24, .pct = 52, Sex = list(
F = list(.n = 18, .pct = 75), M = list(.n = 6, .pct = 25))),
B = list(.n = 22, .pct = 48, Sex = list(F = list(.n = 9,
.pct = 41), M = list(.n = 13, .pct = 59)))))))
expect_identical(vtree(FakeData,"Severity",labelvar=c("Severity"="How bad it is"),vsplitwidth=6),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">How bad<BR/>it is</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48),
Moderate = list(.n = 16, .pct = 40), Severe = list(.n = 5,
.pct = 12), `NA` = list(.n = 6, .pct = NA_real_)))))
})
test_that("legend",{
expect_identical(vtree(FakeData,"Severity Sex",showlegend=TRUE,shownodelabels=FALSE),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nsubgraph cluster_1 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L1_0 Node_L1_1 Node_L1_2 Node_L1_3 Node_L1_4}\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_1[label=<<FONT POINT-SIZE=\"14\">Mild, 19 (48%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> height=0]\nNode_L1_2[label=<<FONT POINT-SIZE=\"14\">Moderate, 16 (40%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> height=0]\nNode_L1_3[label=<<FONT POINT-SIZE=\"14\">Severe, 5 (12%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> height=0]\nNode_L1_4[label=<<FONT POINT-SIZE=\"14\">NA, 6</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> height=0]\n}\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nsubgraph cluster_2 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L2_0 Node_L2_1 Node_L2_2}\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L2_1[label=<<FONT POINT-SIZE=\"14\">F, 27 (59%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> height=0]\nNode_L2_2[label=<<FONT POINT-SIZE=\"14\">M, 19 (41%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> height=0]\n}\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
Sex = list(F = list(.n = 11, .pct = 58), M = list(.n = 8,
.pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50))))))
)
})
Try the vtree package in your browser
Any scripts or data that you put into this service are public.
vtree documentation built on Dec. 11, 2022, 1:05 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("text",{
expect_identical(vtree(FakeData,"Group Severity",horiz=FALSE,showvarnames=FALSE,text=list(Severity=c(Mild="\n*Excluding\nnew diagnoses*"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5 Node_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9 Node_3->Node_10 Node_3->Node_11\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<A<BR/>24 (52%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<B<BR/>22 (48%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_4[label=<Mild<BR/>10 (45%)<BR/><I>Excluding<BR/>new diagnoses</I>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<Moderate<BR/>8 (36%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_6[label=<Severe<BR/>4 (18%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_7[label=<NA<BR/>2> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_8[label=<Mild<BR/>9 (50%)<BR/><I>Excluding<BR/>new diagnoses</I>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<Moderate<BR/>8 (44%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_10[label=<Severe<BR/>1 (6%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_11[label=<NA<BR/>4> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Group = list(A = list(.n = 24, .pct = 52, Severity = list(
Mild = list(.n = 10, .pct = 45, .text = "\n*Excluding\nnew diagnoses*"),
Moderate = list(.n = 8, .pct = 36), Severe = list(.n = 4,
.pct = 18), `NA` = list(.n = 2, .pct = NA_real_))),
B = list(.n = 22, .pct = 48, Severity = list(Mild = list(
.n = 9, .pct = 50, .text = "\n*Excluding\nnew diagnoses*"),
Moderate = list(.n = 8, .pct = 44), Severe = list(
.n = 1, .pct = 6), `NA` = list(.n = 4, .pct = NA_real_))))))
)
expect_identical(vtree(FakeData,"Group Severity",horiz=FALSE,showvarnames=FALSE,
ttext=list(
c(Group="B",Severity="Mild",text="\n*Excluding\nnew diagnoses*"),
c(Group="A",text="\nSweden"),
c(Group="B",text="\nNorway"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5 Node_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9 Node_3->Node_10 Node_3->Node_11\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<A<BR/>24 (52%)<BR/>Sweden> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<B<BR/>22 (48%)<BR/>Norway> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_4[label=<Mild<BR/>10 (45%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<Moderate<BR/>8 (36%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_6[label=<Severe<BR/>4 (18%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_7[label=<NA<BR/>2> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_8[label=<Mild<BR/>9 (50%)<BR/><I>Excluding<BR/>new diagnoses</I>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<Moderate<BR/>8 (44%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_10[label=<Severe<BR/>1 (6%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_11[label=<NA<BR/>4> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Group = list(A = list(.n = 24, .pct = 52, .text = "\nSweden",
Severity = list(Mild = list(.n = 10, .pct = 45), Moderate = list(
.n = 8, .pct = 36), Severe = list(.n = 4, .pct = 18),
`NA` = list(.n = 2, .pct = NA_real_))), B = list(
.n = 22, .pct = 48, .text = "\nNorway", Severity = list(
Mild = list(.n = 9, .pct = 50, .text = "\n*Excluding\nnew diagnoses*"),
Moderate = list(.n = 8, .pct = 44), Severe = list(
.n = 1, .pct = 6), `NA` = list(.n = 4, .pct = NA_real_))))))
)
})
test_that("cdigits",{
expect_identical(vtree(FakeData,"Severity",summary="Score \nmean score: %mean%",cdigits=0,sameline=TRUE,horiz=FALSE),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild, 19 (48%)<BR/>mean score: 12 mv=1<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate, 16 (40%)<BR/>mean score: 17 mv=1<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe, 5 (12%)<BR/>mean score: 38<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46<BR/>mean score: 17 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA, 6<BR/>mean score: 15<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
.text = "\nmean score: 12 mv=1\n"), Moderate = list(.n = 16,
.pct = 40, .text = "\nmean score: 17 mv=1\n"), Severe = list(
.n = 5, .pct = 12, .text = "\nmean score: 38\n"), `NA` = list(
.n = 6, .pct = NA_real_, .text = "\nmean score: 15\n"))))
)
})
test_that("variable specifications",{
expect_identical(vtree(FakeData,"Ind*"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Ind1</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Ind2</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nNode_L3_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#31A354\">Ind3</FONT></FONT>> shape=none margin=0]\nNode_L2_0 -> Node_L3_0 [style=invisible arrowhead=none]\n\nNode_L4_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#E6550D\">Ind4</FONT></FONT>> shape=none margin=0]\nNode_L3_0 -> Node_L4_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4\nNode_2->Node_5 Node_2->Node_6\nNode_5->Node_7 Node_5->Node_8\nNode_7->Node_9 Node_7->Node_10\nNode_8->Node_11\nNode_6->Node_12 Node_6->Node_13 Node_6->Node_14\nNode_12->Node_15 Node_12->Node_16\nNode_13->Node_17\nNode_14->Node_18\nNode_3->Node_19 Node_3->Node_20\nNode_19->Node_21 Node_19->Node_22 Node_19->Node_23\nNode_21->Node_24 Node_21->Node_25\nNode_22->Node_26 Node_22->Node_27\nNode_23->Node_28\nNode_20->Node_29 Node_20->Node_30 Node_20->Node_31\nNode_29->Node_32 Node_29->Node_33\nNode_30->Node_34\nNode_31->Node_35\nNode_4->Node_36\nNode_36->Node_37\nNode_37->Node_38\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<0<BR/>23 (51%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<1<BR/>22 (49%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_5[label=<0<BR/>12 (52%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_6[label=<1<BR/>11 (48%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_7[label=<0<BR/>6 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_8[label=<1<BR/>6 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_9[label=<0<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_10[label=<1<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_11[label=<1<BR/>6 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_12[label=<0<BR/>6 (60%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_13[label=<1<BR/>4 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_14[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_15[label=<0<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_16[label=<1<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_17[label=<1<BR/>4 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_18[label=<1<BR/>1 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_19[label=<0<BR/>10 (45%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_20[label=<1<BR/>12 (55%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_21[label=<0<BR/>4 (44%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_22[label=<1<BR/>5 (56%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_23[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_24[label=<0<BR/>2 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_25[label=<1<BR/>2 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_26[label=<0<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_27[label=<1<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_28[label=<0<BR/>1 (100%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_29[label=<0<BR/>6 (55%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_30[label=<1<BR/>5 (45%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_31[label=<NA<BR/>1> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_32[label=<0<BR/>4 (67%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_33[label=<1<BR/>2 (33%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_34[label=<1<BR/>5 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_35[label=<1<BR/>1 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_36[label=<0<BR/>1 (100%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_37[label=<0<BR/>1 (100%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_38[label=<1<BR/>1 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Ind1 = list(`0` = list(.n = 23, .pct = 51, Ind2 = list(
`0` = list(.n = 12, .pct = 52, Ind3 = list(`0` = list(
.n = 6, .pct = 50, Ind4 = list(`0` = list(.n = 3,
.pct = 50), `1` = list(.n = 3, .pct = 50))),
`1` = list(.n = 6, .pct = 50, Ind4 = list(`1` = list(
.n = 6, .pct = 100))))), `1` = list(.n = 11,
.pct = 48, Ind3 = list(`0` = list(.n = 6, .pct = 60,
Ind4 = list(`0` = list(.n = 3, .pct = 50), `1` = list(
.n = 3, .pct = 50))), `1` = list(.n = 4, .pct = 40,
Ind4 = list(`1` = list(.n = 4, .pct = 100))),
`NA` = list(.n = 1, .pct = NA_real_, Ind4 = list(
`1` = list(.n = 1, .pct = 100))))))), `1` = list(
.n = 22, .pct = 49, Ind2 = list(`0` = list(.n = 10, .pct = 45,
Ind3 = list(`0` = list(.n = 4, .pct = 44, Ind4 = list(
`0` = list(.n = 2, .pct = 50), `1` = list(.n = 2,
.pct = 50))), `1` = list(.n = 5, .pct = 56,
Ind4 = list(`0` = list(.n = 2, .pct = 40), `1` = list(
.n = 3, .pct = 60))), `NA` = list(.n = 1, .pct = NA_real_,
Ind4 = list(`0` = list(.n = 1, .pct = 100))))),
`1` = list(.n = 12, .pct = 55, Ind3 = list(`0` = list(
.n = 6, .pct = 55, Ind4 = list(`0` = list(.n = 4,
.pct = 67), `1` = list(.n = 2, .pct = 33))),
`1` = list(.n = 5, .pct = 45, Ind4 = list(`1` = list(
.n = 5, .pct = 100))), `NA` = list(.n = 1,
.pct = NA_real_, Ind4 = list(`1` = list(.n = 1,
.pct = 100))))))), `NA` = list(.n = 1, .pct = NA_real_,
Ind2 = list(`0` = list(.n = 1, .pct = 100, Ind3 = list(
`0` = list(.n = 1, .pct = 100, Ind4 = list(`1` = list(
.n = 1, .pct = 100)))))))))))
expect_identical(vtree(FakeData,"Age<5"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Age</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<>=5<BR/>12 (31%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<<5<BR/>27 (69%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<NA<BR/>7> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Age = list(`>=5` = list(.n = 12, .pct = 31),
`<5` = list(.n = 27, .pct = 69), `NA` = list(.n = 7,
.pct = NA_real_))))
)
expect_identical(vtree(FakeData,"is.na:Severity"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">is.na:Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<not N/A<BR/>40 (87%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<N/A<BR/>6 (13%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, `is.na:Severity` = list(`not N/A` = list(.n = 40,
.pct = 87), `N/A` = list(.n = 6, .pct = 13))))
)
})
test_that("knitr",{
expect_identical(vtree(FakeData,"Severity Sex",as.if.knit=TRUE,pngknit=FALSE),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<F<BR/>11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<F<BR/>11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<M<BR/>5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
Sex = list(F = list(.n = 11, .pct = 58), M = list(.n = 8,
.pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50))))))
)
})
test_that("pruning",{
expect_identical(vtree(FakeData,"Severity Sex",prune=list(Severity=c("Mild","Moderate"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5\nNode_3->Node_6 Node_3->Node_7\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_4[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_6[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Severe = list(.n = 5, .pct = 12,
Sex = list(F = list(.n = 2, .pct = 40), M = list(.n = 3,
.pct = 60))), `NA` = list(.n = 6, .pct = NA_real_,
Sex = list(F = list(.n = 3, .pct = 50), M = list(.n = 3,
.pct = 50)))))))
expect_identical(vtree(FakeData,"Severity Sex",prunebelow=list(Severity=c("Mild","Moderate"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_4->Node_6 Node_4->Node_7\nNode_5->Node_8 Node_5->Node_9\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48),
Moderate = list(.n = 16, .pct = 40), Severe = list(.n = 5,
.pct = 12, Sex = list(F = list(.n = 2, .pct = 40),
M = list(.n = 3, .pct = 60))), `NA` = list(.n = 6,
.pct = NA_real_, Sex = list(F = list(.n = 3, .pct = 50),
M = list(.n = 3, .pct = 50)))))))
expect_identical(vtree(FakeData[is.na(FakeData$Severity),],"Group Severity Sex",keep=list(Group="B")),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Group</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nNode_L3_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#31A354\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L2_0 -> Node_L3_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2\nNode_2->Node_3\nNode_3->Node_4 Node_3->Node_5\n\nNode_1[label=<6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<B<BR/>4 (67%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_3[label=<NA<BR/>4> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_4[label=<F<BR/>2 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_5[label=<M<BR/>2 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 6L, .pct = 100,
Group = list(B = list(.n = 4, .pct = 67, Severity = list(
`NA` = list(.n = 0, .pct = NaN, Sex = list(F = list(.n = 2,
.pct = 50), M = list(.n = 2, .pct = 50)))))))))
})
test_that("getscript",{
expect_identical(vtree(FakeData,"Severity Sex",getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<F<BR/>11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<M<BR/>8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<F<BR/>11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<M<BR/>5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<M<BR/>3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<M<BR/>3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, Severity = list(Mild = list(.n = 19,
.pct = 48, Sex = list(F = list(.n = 11, .pct = 58), M = list(
.n = 8, .pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50)))))))
expect_identical(vtree(FakeData,"Severity Sex",horiz=FALSE,plain=TRUE,getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.46, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.18]\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\">Severity</FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\">Sex</FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_6[label=<F<BR/>11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_7[label=<M<BR/>8 (42%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_8[label=<F<BR/>11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_9[label=<M<BR/>5 (31%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_10[label=<F<BR/>2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_11[label=<M<BR/>3 (60%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_12[label=<F<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_13[label=<M<BR/>3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, Severity = list(Mild = list(.n = 19,
.pct = 48, Sex = list(F = list(.n = 11, .pct = 58), M = list(
.n = 8, .pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50)))))))
expect_identical(vtree(FakeData,"Severity Sex",showlegend=TRUE,shownodelabels=FALSE,getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nsubgraph cluster_1 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L1_0 Node_L1_1 Node_L1_2 Node_L1_3 Node_L1_4}\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_1[label=<<FONT POINT-SIZE=\"14\">Mild, 19 (48%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> height=0]\nNode_L1_2[label=<<FONT POINT-SIZE=\"14\">Moderate, 16 (40%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> height=0]\nNode_L1_3[label=<<FONT POINT-SIZE=\"14\">Severe, 5 (12%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> height=0]\nNode_L1_4[label=<<FONT POINT-SIZE=\"14\">NA, 6</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> height=0]\n}\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nsubgraph cluster_2 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L2_0 Node_L2_1 Node_L2_2}\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L2_1[label=<<FONT POINT-SIZE=\"14\">F, 27 (59%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> height=0]\nNode_L2_2[label=<<FONT POINT-SIZE=\"14\">M, 19 (41%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> height=0]\n}\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, Severity = list(Mild = list(.n = 19,
.pct = 48, Sex = list(F = list(.n = 11, .pct = 58), M = list(
.n = 8, .pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50)))))))
})
test_that("vtree test ptable",{
expect_identical(vtree(FakeData,"Severity Age Pre Post",check.is.na=TRUE,ptable=TRUE),
structure(list(n = c(1, 1, 1, 1, 2, 4, 4, 32), pct = c(2, 2,
2, 2, 4, 9, 9, 70), MISSING_Severity = c("not N/A", "not N/A",
"not N/A", "not N/A", "N/A", "N/A", "not N/A", "not N/A"), MISSING_Age = c("N/A",
"not N/A", "not N/A", "not N/A", "N/A", "not N/A", "N/A", "not N/A"
), MISSING_Pre = c("N/A", "N/A", "N/A", "not N/A", "not N/A",
"not N/A", "not N/A", "not N/A"), MISSING_Post = c("not N/A",
"N/A", "not N/A", "N/A", "not N/A", "not N/A", "not N/A", "not N/A"
)), row.names = c(NA, -8L), class = "data.frame")
)})
test_that("vtree test ptable VennTable",{
expect_identical(VennTable(vtree(FakeData,"Severity Age Pre Post",check.is.na=TRUE,ptable=TRUE),sort=FALSE),
structure(c("1", "1", "1", "1", "2", "4", "4", "32", "46", "",
"", "2", "2", "2", "2", "4", "9", "9", "70", "100", "", "", "0",
"0", "0", "0", "2", "4", "0", "0", "", "6", "13", "1", "0", "0",
"0", "2", "0", "4", "0", "", "7", "15", "1", "1", "1", "0", "0",
"0", "0", "0", "", "3", "7", "0", "1", "0", "1", "0", "0", "0",
"0", "", "2", "4"), .Dim = c(11L, 6L), .Dimnames = list(c("",
"", "", "", "", "", "", "", "Total", "N", "pct"), c("n", "pct",
"MISSING_Severity", "MISSING_Age", "MISSING_Pre", "MISSING_Post"
)))
)})
test_that("vtree pattern tree test",{
expect_identical(vtree(FakeData,"Severity Age Group",pattern=TRUE,getscript=TRUE),
structure("digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#FC9272\">pattern</FONT></FONT>> shape=none margin=0]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nNode_L3_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#31A354\">Age</FONT></FONT>> shape=none margin=0]\nNode_L2_0 -> Node_L3_0 [style=invisible arrowhead=none]\n\nNode_L4_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#E6550D\">Group</FONT></FONT>> shape=none margin=0]\nNode_L3_0 -> Node_L4_0 [style=invisible arrowhead=none]\n\nedge[style=solid, arrowhead=none]\n\nNode_2->Node_24\nNode_24->Node_25\nNode_25->Node_26\nNode_3->Node_27\nNode_27->Node_28\nNode_28->Node_29\nNode_4->Node_30\nNode_30->Node_31\nNode_31->Node_32\nNode_5->Node_33\nNode_33->Node_34\nNode_34->Node_35\nNode_6->Node_36\nNode_36->Node_37\nNode_37->Node_38\nNode_7->Node_39\nNode_39->Node_40\nNode_40->Node_41\nNode_8->Node_42\nNode_42->Node_43\nNode_43->Node_44\nNode_9->Node_45\nNode_45->Node_46\nNode_46->Node_47\nNode_10->Node_48\nNode_48->Node_49\nNode_49->Node_50\nNode_11->Node_51\nNode_51->Node_52\nNode_52->Node_53\nNode_12->Node_54\nNode_54->Node_55\nNode_55->Node_56\nNode_13->Node_57\nNode_57->Node_58\nNode_58->Node_59\nNode_14->Node_60\nNode_60->Node_61\nNode_61->Node_62\nNode_15->Node_63\nNode_63->Node_64\nNode_64->Node_65\nNode_16->Node_66\nNode_66->Node_67\nNode_67->Node_68\nNode_17->Node_69\nNode_69->Node_70\nNode_70->Node_71\nNode_18->Node_72\nNode_72->Node_73\nNode_73->Node_74\nNode_19->Node_75\nNode_75->Node_76\nNode_76->Node_77\nNode_20->Node_78\nNode_78->Node_79\nNode_79->Node_80\nNode_21->Node_81\nNode_81->Node_82\nNode_82->Node_83\nNode_22->Node_84\nNode_84->Node_85\nNode_85->Node_86\nNode_23->Node_87\nNode_87->Node_88\nNode_88->Node_89\n\n\nNode_2[label=<5 (11%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_3[label=<4 (9%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_4[label=<4 (9%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_5[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_6[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_7[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_8[label=<3 (7%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_9[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_10[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_11[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_12[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_13[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_14[label=<2 (4%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_15[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_16[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_17[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_18[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_19[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_20[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_21[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_22[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\n\nNode_23[label=<1 (2%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_24[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_25[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_26[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_27[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_28[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_29[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_30[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_31[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_32[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_33[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_34[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_35[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_36[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_37[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_38[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_39[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_40[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_41[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_42[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_43[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_44[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_45[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_46[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_47[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_48[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_49[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_50[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_51[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_52[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_53[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_54[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_55[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_56[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_57[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_58[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_59[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_60[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_61[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_62[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_63[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_64[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_65[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_66[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_67[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_68[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\nNode_69[label=<Severe<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_70[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_71[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_72[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_73[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_74[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_75[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_76[label=<4<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#A1D99B> ]\nNode_77[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_78[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_79[label=<NA<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_80[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_81[label=<Moderate<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_82[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_83[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_84[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_85[label=<5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#31A354> ]\nNode_86[label=<A<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE6CE> ]\nNode_87[label=<Mild<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_88[label=<3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#E5F5E0> ]\nNode_89[label=<B<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#E6550D> ]\n\n}\n", info = list(
.n = 46L, .pct = 100, pattern = list(`Mild 4 B` = list(.n = 5,
.pct = 11, Severity = list(Mild = list(.n = 5, .pct = 100,
Age = list(`4` = list(.n = 5, .pct = 100, Group = list(
B = list(.n = 0, .pct = 0))))))), `Moderate 3 B` = list(
.n = 4, .pct = 9, Severity = list(Moderate = list(.n = 0,
.pct = 0, Age = list(`3` = list(.n = 4, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Mild 3 A` = list(.n = 4, .pct = 9, Severity = list(Mild = list(
.n = 4, .pct = 100, Age = list(`3` = list(.n = 4,
.pct = 100, Group = list(A = list(.n = 4, .pct = 100))))))),
`Moderate 5 A` = list(.n = 3, .pct = 7, Severity = list(
Moderate = list(.n = 0, .pct = 0, Age = list(`5` = list(
.n = 3, .pct = 100, Group = list(A = list(.n = 3,
.pct = 100))))))), `Moderate 4 A` = list(.n = 3,
.pct = 7, Severity = list(Moderate = list(.n = 0,
.pct = 0, Age = list(`4` = list(.n = 3, .pct = 100,
Group = list(A = list(.n = 3, .pct = 100))))))),
`Mild NA A` = list(.n = 3, .pct = 7, Severity = list(
Mild = list(.n = 3, .pct = 100, Age = list(`NA` = list(
.n = 3, .pct = NA_real_, Group = list(A = list(
.n = 3, .pct = 100))))))), `Mild 5 B` = list(
.n = 3, .pct = 7, Severity = list(Mild = list(.n = 3,
.pct = 100, Age = list(`5` = list(.n = 3, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Severe 5 A` = list(.n = 2, .pct = 4, Severity = list(
Severe = list(.n = 0, .pct = 0, Age = list(`5` = list(
.n = 2, .pct = 100, Group = list(A = list(.n = 2,
.pct = 100))))))), `NA NA B` = list(.n = 2,
.pct = 4, Severity = list(`NA` = list(.n = 0, .pct = NaN,
Age = list(`NA` = list(.n = 2, .pct = NA_real_,
Group = list(B = list(.n = 0, .pct = 0))))))),
`NA 3 B` = list(.n = 2, .pct = 4, Severity = list(`NA` = list(
.n = 0, .pct = NaN, Age = list(`3` = list(.n = 2,
.pct = 100, Group = list(B = list(.n = 0, .pct = 0))))))),
`Moderate 5 B` = list(.n = 2, .pct = 4, Severity = list(
Moderate = list(.n = 0, .pct = 0, Age = list(`5` = list(
.n = 2, .pct = 100, Group = list(B = list(.n = 0,
.pct = 0))))))), `Moderate 4 B` = list(.n = 2,
.pct = 4, Severity = list(Moderate = list(.n = 0,
.pct = 0, Age = list(`4` = list(.n = 2, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Mild 4 A` = list(.n = 2, .pct = 4, Severity = list(Mild = list(
.n = 2, .pct = 100, Age = list(`4` = list(.n = 2,
.pct = 100, Group = list(A = list(.n = 2, .pct = 100))))))),
`Severe NA A` = list(.n = 1, .pct = 2, Severity = list(
Severe = list(.n = 0, .pct = 0, Age = list(`NA` = list(
.n = 1, .pct = NA_real_, Group = list(A = list(
.n = 1, .pct = 100))))))), `Severe 4 B` = list(
.n = 1, .pct = 2, Severity = list(Severe = list(.n = 0,
.pct = 0, Age = list(`4` = list(.n = 1, .pct = 100,
Group = list(B = list(.n = 0, .pct = 0))))))),
`Severe 3 A` = list(.n = 1, .pct = 2, Severity = list(
Severe = list(.n = 0, .pct = 0, Age = list(`3` = list(
.n = 1, .pct = 100, Group = list(A = list(.n = 1,
.pct = 100))))))), `NA 5 A` = list(.n = 1,
.pct = 2, Severity = list(`NA` = list(.n = 0, .pct = NaN,
Age = list(`5` = list(.n = 1, .pct = 100, Group = list(
A = list(.n = 1, .pct = 100))))))), `NA 4 A` = list(
.n = 1, .pct = 2, Severity = list(`NA` = list(.n = 0,
.pct = NaN, Age = list(`4` = list(.n = 1, .pct = 100,
Group = list(A = list(.n = 1, .pct = 100))))))),
`Moderate NA A` = list(.n = 1, .pct = 2, Severity = list(
Moderate = list(.n = 0, .pct = 0, Age = list(`NA` = list(
.n = 1, .pct = NA_real_, Group = list(A = list(
.n = 1, .pct = 100))))))), `Moderate 3 A` = list(
.n = 1, .pct = 2, Severity = list(Moderate = list(
.n = 0, .pct = 0, Age = list(`3` = list(.n = 1,
.pct = 100, Group = list(A = list(.n = 1, .pct = 100))))))),
`Mild 5 A` = list(.n = 1, .pct = 2, Severity = list(Mild = list(
.n = 1, .pct = 100, Age = list(`5` = list(.n = 1,
.pct = 100, Group = list(A = list(.n = 1, .pct = 100))))))),
`Mild 3 B` = list(.n = 1, .pct = 2, Severity = list(Mild = list(
.n = 1, .pct = 100, Age = list(`3` = list(.n = 1,
.pct = 100, Group = list(B = list(.n = 0, .pct = 0)))))))))))
})
test_that("VennTable",{
expect_identical(VennTable(vtree(FakeData,"Severity Age Group",check.is.na=TRUE,ptable=TRUE),sort=FALSE),
structure(c("2", "4", "5", "35", "46", "", "", "4", "9", "11",
"76", "100", "", "", "2", "4", "0", "0", "", "6", "13", "2",
"0", "5", "0", "", "7", "15", "0", "0", "0", "0", "", "0", "0"
), .Dim = c(7L, 5L), .Dimnames = list(c("", "", "", "", "Total",
"N", "pct"), c("n", "pct", "MISSING_Severity", "MISSING_Age",
"MISSING_Group"))))
expect_identical(VennTable(vtree(FakeData,"Ind1 Ind2",ptable=TRUE),markdown=TRUE),
" | | | | | |Total|N|%\n-|-|-|-|-|-|-|-|-\nn|1|10|11|12|12|46| | \n%|2|22|24|26|26|100| | \nInd2| | |✔| |✔| |23|50\nInd1|-|✔| | |✔| |22|48"
)
})
test_that("CONSORT",{
expect_identical(vtree(FakeRCT,"eligible randomized group followup analyzed",plain=TRUE,
keep=list(eligible="Eligible",randomized="Randomized",followup="Followed up"),
horiz=FALSE,showvarnames=FALSE,title="Assessed for eligibility"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.46, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.18]\n\nedge[style=solid]\nNode_1->Node_2\nNode_2->Node_3\nNode_3->Node_4 Node_3->Node_5\nNode_4->Node_6\nNode_6->Node_7\nNode_5->Node_8\nNode_8->Node_9\n\nNode_1[label=<Assessed for eligibility<BR/>12> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Eligible<BR/>8 (67%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#C6DBEF> ]\nNode_3[label=<Randomized<BR/>7 (88%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#9ECAE1> ]\nNode_4[label=<A<BR/>4 (57%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#6BAED6> ]\nNode_5[label=<B<BR/>3 (43%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#6BAED6> ]\nNode_6[label=<Followed up<BR/>3 (75%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#4292C6> ]\nNode_7[label=<Analyzed<BR/>3 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#2171B5> ]\nNode_8[label=<Followed up<BR/>3 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#4292C6> ]\nNode_9[label=<Analyzed<BR/>3 (100%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#2171B5> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 12L,
.pct = 100, eligible = list(Eligible = list(.n = 8, .pct = 67,
randomized = list(Randomized = list(.n = 7, .pct = 88,
group = list(A = list(.n = 4, .pct = 57, followup = list(
`Followed up` = list(.n = 3, .pct = 75, analyzed = list(
Analyzed = list(.n = 3, .pct = 100))))), B = list(
.n = 3, .pct = 43, followup = list(`Followed up` = list(
.n = 3, .pct = 100, analyzed = list(Analyzed = list(
.n = 3, .pct = 100)))))))))))))
})
test_that("summary",{
expect_identical(vtree(FakeData,summary="Score"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nedge[style=solid]\n\n\nNode_1[label=<46<BR/>Score<BR/>missing 2<BR/>mean 17.1 SD 20.2<BR/>med 9.0 IQR 4.0, 23.5<BR/>range 0.0, 99.0<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100)))
expect_identical(vtree(FakeData,summary="Severity"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nedge[style=solid]\n\n\nNode_1[label=<46<BR/>Severity<BR/>Mild: 19 (48%)<BR/>Moderate: 16 (40%)<BR/>Severe: 5 (12%)<BR/>NA: 6<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100)))
expect_identical(
{dessert <- build.data.frame(
c( "group","IceCream___1","IceCream___2","IceCream___3"),
list("A", 1, 0, 0, 7),
list("A", 1, 0, 1, 2),
list("A", 0, 0, 0, 1),
list("B", 1, 0, 1, 1),
list("B", 1, 0, 0, 2),
list("B", 0, 1, 1, 1),
list("B", 0, 0, 0, 1))
attr(dessert$IceCream___1,"label") <- "Ice cream (choice=Chocolate)"
attr(dessert$IceCream___2,"label") <- "Ice cream (choice=Vanilla)"
attr(dessert$IceCream___3,"label") <- "Ice cream (choice=Strawberry)"
vtree(dessert,summary="stemc:IceCream",splitwidth=Inf)
},
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\n\nedge[style=solid]\n\n\nNode_1[label=<15<BR/>Chocolate: 9 (60%)<BR/>Chocolate+Strawberry: 3 (20%)<BR/>*None: 2 (13%)<BR/>Vanilla+Strawberry: 1 (7%)<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(),
dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 15L,
.pct = 100)))
expect_identical(vtree(FakeData,"Severity",horiz=FALSE,showvarnames=FALSE,splitwidth=Inf,sameline=TRUE,summary=c("Score \nScore: mean %meanx% SD %SD%","Pre \nPre: range %range%")),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild, 19 (48%)<BR/>Score: mean 12.1 SD 14.6 mv=1<BR/>Pre: range -2.5, 1.9 mv=2<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate, 16 (40%)<BR/>Score: mean 17.1 SD 24.4 mv=1<BR/>Pre: range -1.5, 2.1 mv=1<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe, 5 (12%)<BR/>Score: mean 37.6 SD 16.8<BR/>Pre: range -1.4, 0.5<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46<BR/>Score: mean 17.1 SD 20.2 mv=2<BR/>Pre: range -2.5, 2.1 mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA, 6<BR/>Score: mean 15.0 SD 19.4<BR/>Pre: range -1.5, 0.8<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
.text = "\nScore: mean 12.1 SD 14.6 mv=1\nPre: range -2.5, 1.9 mv=2\n"),
Moderate = list(.n = 16, .pct = 40, .text = "\nScore: mean 17.1 SD 24.4 mv=1\nPre: range -1.5, 2.1 mv=1\n"),
Severe = list(.n = 5, .pct = 12, .text = "\nScore: mean 37.6 SD 16.8\nPre: range -1.4, 0.5\n"),
`NA` = list(.n = 6, .pct = NA_real_, .text = "\nScore: mean 15.0 SD 19.4\nPre: range -1.5, 0.8\n")))))
expect_identical(vtree(FakeData,"Sex",summary="Severity=Mild \nMild: %npct%%leafonly%"),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\n\nNode_1[label=<46<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<F<BR/>27 (59%)<BR/>Mild: 11 (46%) mv=3<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46<BR/>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<M<BR/>19 (41%)<BR/>Mild: 8 (50%) mv=3<BR/>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Sex = list(F = list(.n = 27, .pct = 59, .text = "\nMild: 11 (46%) mv=3\n"),
M = list(.n = 19, .pct = 41, .text = "\nMild: 8 (50%) mv=3\n")))))
})
test_that("text wrapping",{
expect_identical(vtree(FakeData,"Severity",labelnode=list(Severity=c("Extremely bad"="Severe")),splitwidth=5),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Extremely<BR/>bad<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48),
Moderate = list(.n = 16, .pct = 40), Severe = list(.n = 5,
.pct = 12), `NA` = list(.n = 6, .pct = NA_real_)))))
})
test_that("labelnode",{
expect_identical(vtree(FakeData,"Group Sex",horiz=FALSE,labelnode=list(Sex=c(Male="M",Female="F"))),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Group</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3\nNode_2->Node_4 Node_2->Node_5\nNode_3->Node_6 Node_3->Node_7\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<A<BR/>24 (52%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<B<BR/>22 (48%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_4[label=<Female<BR/>18 (75%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_5[label=<Male<BR/>6 (25%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_6[label=<Female<BR/>9 (41%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<Male<BR/>13 (59%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Group = list(A = list(.n = 24, .pct = 52, Sex = list(
F = list(.n = 18, .pct = 75), M = list(.n = 6, .pct = 25))),
B = list(.n = 22, .pct = 48, Sex = list(F = list(.n = 9,
.pct = 41), M = list(.n = 13, .pct = 59)))))))
expect_identical(vtree(FakeData,"Severity",labelvar=c("Severity"="How bad it is"),vsplitwidth=6),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">How bad<BR/>it is</FONT></FONT>> shape=none margin=0]\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<Mild<BR/>19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<Moderate<BR/>16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<Severe<BR/>5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<NA<BR/>6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48),
Moderate = list(.n = 16, .pct = 40), Severe = list(.n = 5,
.pct = 12), `NA` = list(.n = 6, .pct = NA_real_)))))
})
test_that("legend",{
expect_identical(vtree(FakeData,"Severity Sex",showlegend=TRUE,shownodelabels=FALSE),
structure(list(x = list(diagram = "digraph vtree {\ngraph [nodesep=0.1, ranksep=0.5, tooltip=\" \"]\nnode [fontname = \"Arial\", fontcolor = black,shape = rectangle, color = black, tooltip=\" \",margin=0.1]\nrankdir=LR;\nNode_L0_0 [style=invisible]\n\nsubgraph cluster_1 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L1_0 Node_L1_1 Node_L1_2 Node_L1_3 Node_L1_4}\nNode_L1_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#DE2D26\">Severity</FONT></FONT>> shape=none margin=0]\nNode_L1_1[label=<<FONT POINT-SIZE=\"14\">Mild, 19 (48%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> height=0]\nNode_L1_2[label=<<FONT POINT-SIZE=\"14\">Moderate, 16 (40%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> height=0]\nNode_L1_3[label=<<FONT POINT-SIZE=\"14\">Severe, 5 (12%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> height=0]\nNode_L1_4[label=<<FONT POINT-SIZE=\"14\">NA, 6</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> height=0]\n}\nNode_L0_0 -> Node_L1_0 [style=invisible arrowhead=none]\n\nsubgraph cluster_2 {\nstyle=rounded\ncolor=<#bdbdbd>\n{rank=same Node_L2_0 Node_L2_1 Node_L2_2}\nNode_L2_0[label=<<FONT POINT-SIZE=\"24\"><FONT COLOR=\"#3182BD\">Sex</FONT></FONT>> shape=none margin=0]\nNode_L2_1[label=<<FONT POINT-SIZE=\"14\">F, 27 (59%)</FONT>> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> height=0]\nNode_L2_2[label=<<FONT POINT-SIZE=\"14\">M, 19 (41%)</FONT>> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> height=0]\n}\nNode_L1_0 -> Node_L2_0 [style=invisible arrowhead=none]\n\nedge[style=solid]\nNode_1->Node_2 Node_1->Node_3 Node_1->Node_4 Node_1->Node_5\nNode_2->Node_6 Node_2->Node_7\nNode_3->Node_8 Node_3->Node_9\nNode_4->Node_10 Node_4->Node_11\nNode_5->Node_12 Node_5->Node_13\n\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_2[label=<19 (48%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#FEE0D2> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_3[label=<16 (40%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#FC9272> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_4[label=<5 (12%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#DE2D26> ]\nNode_1[label=<46> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#EFF3FF>]\nNode_5[label=<6> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<white> ]\nNode_6[label=<11 (58%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_7[label=<8 (42%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_8[label=<11 (69%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_9[label=<5 (31%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_10[label=<2 (40%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_11[label=<3 (60%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\nNode_12[label=<3 (50%)> fontcolor=<#000000> color=black style=\"rounded,filled\" fillcolor=<#DEEBF7> ]\nNode_13[label=<3 (50%)> fontcolor=<#ffffff> color=black style=\"rounded,filled\" fillcolor=<#3182BD> ]\n\n}\n",
config = list(engine = "dot", options = NULL)), width = NULL,
height = NULL, sizingPolicy = htmlwidgets::sizingPolicy(), dependencies = NULL, elementId = NULL,
preRenderHook = NULL, jsHooks = list()), class = c("grViz",
"htmlwidget"), package = "DiagrammeR", info = list(.n = 46L,
.pct = 100, Severity = list(Mild = list(.n = 19, .pct = 48,
Sex = list(F = list(.n = 11, .pct = 58), M = list(.n = 8,
.pct = 42))), Moderate = list(.n = 16, .pct = 40,
Sex = list(F = list(.n = 11, .pct = 69), M = list(.n = 5,
.pct = 31))), Severe = list(.n = 5, .pct = 12, Sex = list(
F = list(.n = 2, .pct = 40), M = list(.n = 3, .pct = 60))),
`NA` = list(.n = 6, .pct = NA_real_, Sex = list(F = list(
.n = 3, .pct = 50), M = list(.n = 3, .pct = 50))))))
)
})
Try the vtree package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.