Browse Source

Initial commit - data + app

Petra Lamborn 5 years ago
commit
b370087f77
3 changed files with 36 additions and 0 deletions
  1. 5
    0
      .gitignore
  2. BIN
      Emissions1990-2010.xlsx
  3. 31
    0
      app.R

+ 5
- 0
.gitignore View File

@@ -0,0 +1,5 @@
1
+.Rproj.user
2
+.Rhistory
3
+.RData
4
+.Ruserdata
5
+*.Rproj

BIN
Emissions1990-2010.xlsx View File


+ 31
- 0
app.R View File

@@ -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
+