inst/shinyPdM/ui.R

In svcuong/PdM: R package for predictive maintenance

require(shiny)
require(shinydashboard)
require(shinyjs)
require(shinyBS)
require(DT)
require(plotly)
require(shinythemes)

source("./helpers/helpers_ui.R", local = TRUE)$value

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)
}

shinyUI(
  tagList(
    useShinyjs(),
    loading.screens,
    div(id = "app-content",
      navbarPage(title = div(img(src = "", height = 35)),
        theme = shinytheme("cerulean"), id = "top-nav",
        tabPanel("Import", tabpanel.import,
          icon = icon("folder-open")),
        navbarMenu("Data", icon = icon("database"),
          tabPanel("Summary", tabpanel.summary,
            icon = icon("bar-chart")),
          tabPanel("Preprocessing", tabpanel.preprocessing,
            icon = icon("magic"))
        ),
        tabPanel("Task", tabpanel.task, icon = icon("flag")),
        tabPanel("Models", tabpanel.learners,
          icon = icon("cog")),
        tabPanel("Tuning", tabpanel.tuning,
          icon = icon("wrench")),
        navbarMenu("Train and Predict", icon = icon("graduation-cap"),
          tabPanel("Train", tabpanel.train),
          tabPanel("Predict", tabpanel.predict),
          tabPanel("Performance & Visualisation", tabpanel.performance)
        ),
        # tabPanel("Benchmark", tabpanel.benchmark,
        #   icon = icon("hourglass-start")),
        tabPanel("Report", tabpanel.report,
          icon = icon("book")),
        # tabPanel(title = "hide_me"),
        # tabPanel(title = div(class = "navbarlink-container",
        #   tags$img(height = "20px", alt = "mlr Logo",
        #     src = "new_mlr_logo.png")
        # ), value = "https://github.com/mlr-org/mlr"),
        tabPanel(title = "Github", icon = icon("github", "fa-lg"),
          value = "https://github.com/forvis/PdM"),

        footer = tagList(
          includeScript("scripts/top-nav-links.js"),
          includeScript("scripts/app.js"),
          tags$link(rel = "stylesheet", type = "text/css",
            href = "custom.css"),
          tags$link(rel = "stylesheet", type = "text/css",
            href = "https://fonts.googleapis.com/css?family=Roboto"),
          tags$link(rel = "stylesheet", type = "text/css",
            href = "AdminLTE.css"),
          tags$footer(title = "", # align = "right",
            # tags$a(id = "show_help",
            # href = "https://github.com/mlr-org/mlr_shiny", target = "_blank",
            # div(id = "copyright-container",
            #   column(width = 6, align = "left",
            tags$p(id = "copyright",
              tags$img(icon("copyright")),
              2019,
              tags$a(href = "https://github.com/forvis",
                target = "_blank", "Cuong Sai, "),
              tags$a(href = "http://www1.vstu.ru/persona/shcherbakov-maksim-vladimirovich.html",
                target = "_blank", "Maxim Shcherbakov"),
              " (Volgograd State Technical University)"
            ),
            tags$p(id = "help_toggler",
              bsButton(inputId = "show_help", label = "show help",
                type = "toggle", icon = icon("question-circle"))
            )
          )
        ), windowTitle = "shinyPdM"
      )
    )
  )
)