Initial commit

Author: Bruno P. Kinoshita

Diff for: .gitignore

@@ -0,0 +1,33 @@
+# History files
+.Rhistory
+.Rapp.history
+
+# Session Data files
+.RData
+
+# Example code in package build process
+*-Ex.R
+
+# Output files from R CMD build
+/*.tar.gz
+
+# Output files from R CMD check
+/*.Rcheck/
+
+# RStudio files
+.Rproj.user/
+
+# produced vignettes
+vignettes/*.html
+vignettes/*.pdf
+
+# OAuth2 token, see https://github.com/hadley/httr/releases/tag/v0.3
+.httr-oauth
+
+# knitr and R markdown default cache directories
+/*_cache/
+/cache/
+
+# Temporary files created by R markdown
+*.utf8.md
+*.knit.md

Diff for: README.md

@@ -0,0 +1,14 @@
+# NIWA Style guide for R Shiny Applications
+
+NIWA has a default style guide, created in conjunction with communications team and IT systems development.
+
+This style guide is applied to most systems within NIWA, giving a consistent image for NIWA systems.
+
+The file `niwastyleguide.R` contains the functions used to create the top header, the menu bar, and the footer.
+You can modify the links of your application by editing this file.
+
+Here's a screen shot of the default R Shiny app with the NIWA Style Guide.
+
+![Screen shot of the default R Shiny app with the NIWA Style Guide](screenshot.png)
+
+For more information, visit the [NIWA Style Guide home page](https://styles.niwa.co.nz/).

Diff for: niwastyleguide.R

@@ -0,0 +1,77 @@
+# This file contains custom functions for NIWA Style guide. You are free to edit the links, and menu items.
+# Colours, and position of certain elements will be automatically determined for your application.
+# Search for TODO to locate where to change links.
+
+#' Add the application menu from NIWA.
+#'
+#' You can customize the menu links in this function.
+niwaMenu <- function() {
+  tags$div(
+    class = "navbar navbar-default",
+    role = "navigation",
+    tags$div(
+      class = "container-fluid",
+      tags$div(
+        class = "navbar-header",
+        tags$button(
+          type = "button",
+          class = "navbar-toggle",
+          `data-toggle` = "collapse",
+          `data-target` = ".navbar-collapse",
+          tags$span(class = "sr-only", "Toggle navigation"),
+          tags$span(class = "icon-bar"),
+          tags$span(class = "icon-bar"),
+          tags$span(class = "icon-bar")
+        )
+      ),
+      tags$div(
+        class = "collapse navbar-collapse",
+        tags$ul(
+          class = "nav navbar-nav",
+          # TODO: You can customize the menu links here
+          tags$li(class = "active", tags$a(href = "/", "Home")),
+          tags$li(tags$a(href = "https://www.niwa.co.nz", "NIWA Web site")),
+          tags$li(
+            tags$a(href = "https://en.wikipedia.org/wiki/National_Institute_of_Water_and_Atmospheric_Research", "NIWA Wikipedia page")
+          )
+        )
+      )
+    )
+  )
+}
+
+#' Add the NIWA banner, normally at the top.
+#'
+#' @param title The application title. Defaults to 'NIWA R Shiny Application'
+#' @param link The application link. Defaults to 'https://www.niwa.co.nz/'
+niwaBanner <- function(title = "NIWA R Shiny Application", link = "https://www.niwa.co.nz/") {
+  tags$div(class = "banner",
+           role = "banner",
+           tags$div(class = "container-fluid",
+                    tags$div(
+                      class = "row",
+                      # Set the title of your application here
+                      tags$a(title,
+                             class = "logo",
+                             href = link)
+                    )))
+}
+
+#' Add the applicatoin footer from NIWA.
+#'
+#' You can customize the footer links in this function.
+niwaFooter <- function() {
+  tags$footer(role = "contentinfo",
+              tags$div(class = "container",
+                       tags$div(
+                         class = "row",
+                         tags$a(href = "/", class = "logo"),
+                         tags$ul(
+                           # TODO: You can customize the header links here
+                           tags$li(
+                             tags$a(href = "https://www.niwa.co.nz/privacy-policy", "NIWA Privacy Policy")
+                           ),
+                           tags$li(id = "copyrightNiwa", class = "pull-right", "Copyright 2017 NIWA")
+                         )
+                       )))
+}

Diff for: screenshot.png

@@ -0,0 +1,26 @@
+#
+# This is the server logic of a Shiny web application. You can run the 
+# application by clicking 'Run App' above.
+#
+# Find out more about building applications with Shiny here:
+# 
+#    http://shiny.rstudio.com/
+#
+
+library(shiny)
+
+# Define server logic required to draw a histogram
+shinyServer(function(input, output) {
+   
+  output$distPlot <- renderPlot({
+    
+    # generate bins based on input$bins from ui.R
+    x    <- faithful[, 2] 
+    bins <- seq(min(x), max(x), length.out = input$bins + 1)
+    
+    # draw the histogram with the specified number of bins
+    hist(x, breaks = bins, col = 'darkgray', border = 'white')
+    
+  })
+  
+})

Diff for: server.R

@@ -0,0 +1,51 @@
+# Application: R Shiny example with NIWA Style guide (https://styles.niwa.co.nz).
+# Author: NIWA/ITSD
+# Source: https://git.niwa.local/ITSD/shiny-styleguide
+# Issues: https://git.niwa.local/ITSD/shiny-styleguide/issues
+# For more information: https://styles.niwa.co.nz
+
+library(shiny)
+
+# Load UI customization functions
+source('./niwastyleguide.R')
+
+# Define UI for application that draws a histogram
+shinyUI(
+  fluidPage(
+    theme = "https://styles.niwa.co.nz/dist/css/bootstrap.min.css",
+    style = "margin: 0px !important; border: 0px !important; padding: 0px !important;",
+    # NIWA Style guide. See https://styles.niwa.co.nz for more.
+    tags$head(
+      tags$link(rel = "stylesheet", type = "text/css", href = "https://styles.niwa.co.nz/dist/css/bootstrap-theme.min.css")
+    ),
+    
+    # NIWA Banner
+    niwaBanner(title = 'NIWA R Shiny App', link = 'https://github.com/niwa/'),
+    
+    niwaMenu(),
+    tags$br(class = "clearfix;"),
+    
+    # two columns layout
+    tags$div(class = "row-fluid",
+             sidebarPanel(
+               # TODO: your sidebar content goes here
+               sliderInput(
+                 "bins",
+                 "Number of bins:",
+                 min = 1,
+                 max = 50,
+                 value = 30
+               )
+             ),
+             mainPanel(# TODO: your main content goes here
+               plotOutput("distPlot"))),
+    
+    niwaFooter(),
+    
+    # Placed at the end of the document so the pages load faster
+    tags$head(
+      tags$script(src = "https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"),
+      tags$script(src = "https://styles.niwa.co.nz/dist/js/bootstrap.min.js")
+    )
+  )
+) # end