R/p_optimize.R

In exaexa/panelbuilder: Fluorescent cytometry panel building assistant

menuOptimizer <- function(input,output,session,wsp) {
  output$menuOptimizer <- shiny::renderUI("Panel optimizer")
}

serveOptimizer <- function(input, output, session, wsp) {
  output$uiOptimizer <- shiny::renderUI(shiny::tagList(
    shiny::h1("Optimize the panel"),
    "This is work-in-progress."
  ))
}