inst/shiny/ui/compareplots.R

In collinleiber/benchmarkVis: Benchmark result visualisation

tabpanel.compareplots =  list(
  conditionalPanel(
    "output.fileUploaded == true && input.Submit == true",
    fluidRow(column(5, h3(
      "Compare two of your saved plots"
    )),
    column(3, uiOutput(
      "help.compare.plots"
    ))),
    conditionalPanel(
      "output.plotsSaved == true",
      fluidRow(column(6,
                      uiOutput("selectPlot1")),
               column(6,
                      uiOutput("selectPlot2"))),
      fluidRow(column(
        6,
        uiOutput("rerenderPlot1", width = "20%")
      ),
      column(
        6,
        uiOutput("rerenderPlot2", width = "20%")
      ))
    )
  )
)