shinyfilereader

############################
# ui.R:
#############################

## ui.R ##
library(shiny)
library(shinydashboard)
library(DT)
jsfile <- "unitfix.js"

shinyUI(dashboardPage(
  dashboardHeader(title = img(src="logo5.png", height = 32, align = "middle")),
  dashboardSidebar(),
  dashboardBody(
    tags$head(tags$link(rel = "stylesheet", type="text/css", href="bootstrap.css")),
    tags$head(HTML("<script type=\"text/javascript\" src=\"unitpngfix.js\"></script>")),
    fluidRow(
      h4("Touch / No Touch"),
      infoBox("ECC", icon = icon("ok", lib = "glyphicon"), width = 2, color = "green"),
      infoBox("DOC", icon = icon("thumbs-up", lib = "glyphicon"), width = 2, color = "green"),
      infoBox("CCC", icon = icon("thumbs-up", lib = "glyphicon"), width = 2, color = "green"),
      infoBox("GEN", icon = icon("thumbs-up", lib = "glyphicon"), width = 2, color = "green"),
      infoBox("IT", icon = icon("thumbs-up", lib = "glyphicon"), width = 2, color = "green")
    ),
    fluidRow(
      tabBox (
        tabPanel(
          title = "PRI-1 Incidents Previous Period",
          dataTableOutput('PRI1LastPeriodTable')
        ),
        tabPanel(
          title = "PRI-1 Incidents Currently Open"
        ),
        tabPanel(
          title = "Security Status"
        ),
        tabPanel(
          title = "Previous Period's Work - Completed"
        ),
        tabPanel(
          title = "Panned / Ongoing Work - CAB Approved"
        ),
        tabPanel(
          title = "Panned / Ongoing Work - Waiting CAB Approval"
        ),
        tabPanel(
          title = "Facilities"
        ),
        tabPanel(
          title = "Operational Events"
        ),
        tabPanel(
          title = "Staff Locations"
        ),
        tabPanel(
          title = "Weather"
        ),
        width = 12
      )
    )
  )
)
)


#########################
# server.R
#########################

## server.R ##
library(shiny)
library(shinydashboard)
library(DT)

#load("W:/Projects/R/Scripts/ITPOD/itpod/data/prioirtyOneIncidentsLastPeriod.RData", envir = .GlobalEnv)

shinyServer(function(input, output) {

  output$PRI1LastPeriodTable <- renderDataTable({
    prioirtyOneIncidentsLastPeriodTable <- fileReaderILP
    },
    escape=FALSE,
    rownames = FALSE
  )
})

#############################
# global.R
#############################

library(data.table)

# Local files for development/testing

fileReaderILP <- reactiveFileReader(500, session=NULL, filePath = "W:/Projects/R/Scripts/ITPOD/itpod/data/prioirtyOneIncidentsLastPeriod.RData", load, envir=.GlobalEnv)