R/modules/ui.R

In benhid/Rpath: A Web-App for Biologic Pathway Exploration

# Load helper
source('modules/modules.R', local = TRUE)

# Load modules
for(m in modules.tabs){
  print(paste("Loading ui module: ", m, sep=''))
  source(paste("modules/", m, "/", m, "Panel.R", sep=''), local = TRUE)
}

app.ui <-
  shinyUI(
    fluidPage(title = "RPath",
      theme = "css/bootstrap.min.css",
      # Bootstrap.js
      tags$script(src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"),
      tags$script(src="https://use.fontawesome.com/0e40b7473a.js"),
      tags$script("$(document).ready(function() { $(\"body\").tooltip({ selector: '[data-toggle=tooltip]' });});"),
      # Scripts for background
      tags$script(src="js/particles.min.js"),
      tags$script("particlesJS.load('particles-js', 'js/particles.json', function() {
                  console.log('callback - particles.js config loaded');
                  });"),
      tags$style(" #particles-js {
                 width: 100%; height: 100%; background-image: url(\"\");
                 position: fixed; z-index: -10; top: 0; left: 0; }"),
      tags$div(id="particles-js"),
      useShinyjs(),
      tags$head( includeScript("https://d3js.org/d3.v3.min.js") ),
      extendShinyjs(script = "www/js/graph.js"),

      # Page
      navbarPage(
        div(
          img(
            src = "logo_small.png",
            height = 30,
            width = "auto"
          )
        ),
        search.panel,
        analysis.panel,
        visualization.panel,
        user.panel
      )
    )
  )