library(shiny)
library(moreparty)
data(titanic)
ui <- fluidPage(
titlePanel("Conditional inference trees"),
ctreeUI(id = "ctree_app")
)
server <- function(input, output, session) {
rv <- reactiveValues(
data = titanic,
name = deparse(substitute(titanic))
)
ctreeServer(id = "ctree_app", reactive(rv$data), reactive(rv$name))
}
if (interactive())
shinyApp(ui, server)
Run the code above in your browser using DataLab