inst/shiny/ui.R

In collinleiber/benchmarkVis: Benchmark result visualisation

## ui.R ##
library(shinydashboard)
library(data.table)
library(plotly)
library(shinyjs)
library(V8)
library(shinyBS)
shinyjs::useShinyjs()
js.reset.code = "shinyjs.reset = function() {history.go(0)}" # Define the js method that resets the page
shinyjs::extendShinyjs(text = js.reset.code)

ui.files = list.files(path = "./ui", pattern = "*.R")
ui.files = paste0("ui/", ui.files)

for (i in seq_along(ui.files)) {
  source(ui.files[i], local = TRUE)
}

dashboardPage(
  dashboardHeader(title = "benchmarkVis"),
  dashboardSidebar(
    sidebarMenu(
      menuItem(
        "Import",
        tabName = "import",
        icon = icon("file-excel-o")
      ),
      menuItem("Data table", tabName = "table", icon = icon("table")),
      menuItem("Plots", tabName = "plots", icon = icon("line-chart")),
      menuItem("Saved Plots", tabName = "savedplots", icon = icon("eye ")),
      menuItem(
        "Compare Plots",
        tabName = "compareplots",
        icon = icon("th-large")
      )
    )
  ),
  dashboardBody(tabItems(
    tabItem(tabName = "import", tabpanel.import),
    tabItem(tabName = "table", tabpanel.table),
    tabItem(tabName = "plots", tabpanel.plots),
    tabItem(tabName = "savedplots", tabpanel.savedplots),
    tabItem(tabName = "compareplots", tabpanel.compareplots)
  ))
)