|
@@ -0,0 +1,31 @@
|
|
1
|
+library(shiny)
|
|
2
|
+library(ggplot2)
|
|
3
|
+library(scales)
|
|
4
|
+library(tidyverse)
|
|
5
|
+library(readxl)
|
|
6
|
+
|
|
7
|
+Emissions.Sector <- read_excel("Emissions1990-2010.xlsx",
|
|
8
|
+ sheet = "Sector")
|
|
9
|
+Emissions.Fuel <- read_excel("Emissions1990-2010.xlsx",
|
|
10
|
+ sheet = "Fuel")
|
|
11
|
+
|
|
12
|
+# Define UI for application that draws a histogram
|
|
13
|
+ui <- fluidPage(
|
|
14
|
+
|
|
15
|
+ titlePanel("NZ emissions 1990-2010"),
|
|
16
|
+
|
|
17
|
+ sidebarLayout(
|
|
18
|
+ sidebarPanel(
|
|
19
|
+ ),
|
|
20
|
+
|
|
21
|
+ mainPanel(
|
|
22
|
+ )
|
|
23
|
+ )
|
|
24
|
+)
|
|
25
|
+
|
|
26
|
+server <- function(input, output) {
|
|
27
|
+
|
|
28
|
+}
|
|
29
|
+
|
|
30
|
+shinyApp(ui = ui, server = server)
|
|
31
|
+
|