if (FALSE) {
library(shiny)
library(vtree)
ui <- fluidPage(
vtreeOutput("vtree", width = "100%", height = "800px")
)
server <- function(input, output, session) {
output$vtree <- renderVtree({
vtree(FakeData,"Severity Sex",
labelnode=list(Sex=(c("Male"="M","Female"="F"))),
pngknit=FALSE)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab