Matthias Bannert

• studied economics @UniKN
• PhD @ETHZ: partly economics, mostly methodology and stats
• currently: develops software for academic researchers @ETHZ
• open source software projects: timeseriesdb, dropR, RAdwords

"Use the R ecosystem effectively to build useful web apps and visualizations."

Approach

• planning (seperation of concerns)
• framework
• widgets

>> course material

• Frequency
• Order of Magnitude guessr
• Radians explained
• NBA shot chart
• Survival Rate of an h2 pawn
• Seasonal Adjustment
• dropR

… check the stack:

• R 3.3.1+
• R Studio 1.0+
• R packages: shiny, shinydashboard, knitr
• git (optional)

… the following code does:

a <- 1+1
b <- 2+2
d <- a + b
e <- c(1,2,4)

a <- 1+1
b <- 2+2
d <- a + b
e <- c(1,2,4)

## [1] 2

## [1] 4

## [1] 6

## [1] 1 2 4

… the following code does:

m <- matrix(1:12,4,3)
d <- data.frame(col1 = 1:8,
                col2 = letters[1:8])
l <- list()
l$element_a <- a
l$element_m <- m
l$element_d <- d

m <- matrix(1:12,4,3)

##      [,1] [,2] [,3]
## [1,]    1    5    9
## [2,]    2    6   10
## [3,]    3    7   11
## [4,]    4    8   12

d <- data.frame(col1 = 1:8,
                col2 = letters[1:8])

##   col1 col2
## 1    1    a
## 2    2    b
## 3    3    c
## 4    4    d
## 5    5    e
## 6    6    f
## 7    7    g
## 8    8    h

l <- list()
l$element_a <- a
l$element_m <- m
l$element_d <- d

## $element_a
## [1] 2
## 
## $element_m
##      [,1] [,2] [,3]
## [1,]    1    5    9
## [2,]    2    6   10
## [3,]    3    7   11
## [4,]    4    8   12
## 
## $element_d
##   col1 col2
## 1    1    a
## 2    2    b
## 3    3    c
## 4    4    d
## 5    5    e
## 6    6    f
## 7    7    g
## 8    8    h

?sum()
ls()
c()
matrix()
data.frame()
list()
head()
tail()
str()
function()
lapply()

• .Rproj
• script window
• console
• file browser

• Official Introduction to R ( chapter 2)

• stackoverflow questions tagged r

• stackoverflow user written documentation R

• YaRRR! The Pirate's Guide to R

3 files that live in one folder

• ui.R (User Interface)
• server.R (Backend / Processing / Computation)
• global.R (optional, data etc.)

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu()
  ),
  # Body of the App #############
  dashboardBody(
    tabItems()
  )
)

server <- function(input, output) {
  
  output$someplot <- renderPlot({
    hist(rnorm(input$N))
  })
  
}

• locally (within your own R Session) => runApp()
• Shiny server (self-host)
• SaaS shiny server shinyapps.io

• Shiny Gallery
• Shiny Tutorial
• ShowMeShiny
• Shiny Google Group

• Want to do something interactive for teaching stats?
• Want to give an existing application a GUI?
• Have a personal project?
• …