inst/examples/server.R

In burjandedes/randomForestDrawer: Interactive random forest model drawer

shinyServer(function(input, output, session) {
  shinyFunctions <- createRFDrawer(
    colors = c("green", "yellow", "red"),
    shapes = rep("triangle", 3)
  )

  output$rfDrawer <- renderUI({
    shinyFunctions$UI("rf")
  })

  callModule(shinyFunctions$Server, id = "rf")
})