populating workshop notes

Author: dicook

Melb_HS/bilby_tutorial/bilby_tutorial.Rmd

@@ -36,6 +36,15 @@ Hey math boffins, welcome to the coding with R class! Let me introduce you to ou
 - We are going to learn about the software R, and the language of data analysis. There's a lot of things to learn. Its ok if you can't remember it all. Most important thing is to have fun and play, break things and fix them, try out new stuff!
 - We will have breaks whenever you feel you want them - there are lamingtons and cupcakes for morning and afternoon tea. And we are planning to order pizza for lunch unless there is a better idea.
 
+CODE of CONDUCT:
+
+1. Be positive
+2. Be inclusive
+3. Ask for help, and give some help
+
+
+MATERIALS for WORKSHOP:
+
 *These notes can be found at https://dicook.shinyapps.io/bilby_tutorial/ * and example web apps can be found at https://dicook.shinyapps.io/pisa/ and https://dicook.shinyapps.io/pisa_world/. 
 
 ## Let's get started learning R! 

Melb_HS/bilby_tutorial/bilby_tutorial.html

@@ -8,7 +8,6 @@
 #
 library(tidyverse)
 library(gridExtra)
-library(plotly)
 library(ggthemes)
 library(ggmap)
 library(forcats)

Melb_HS/bilby_tutorial/bilby_tutorial_files/figure-html/unnamed-chunk-12-1.png

@@ -0,0 +1,14 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+QuitChildProcessesOnExit: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX

Melb_HS/bilby_tutorial/bilby_tutorial_files/figure-html/unnamed-chunk-13-1.png

@@ -0,0 +1,50 @@
+# credits to @yihui
+# https://github.com/yihui/shiny-apps/tree/master/voice
+# adapted the code above to ggplotly
+library(shiny)
+library(plotly)
+library(ggplot2)
+load("data/pisa_au.rda")
+
+shinyApp(
+  ui = fluidPage(
+    singleton(tags$head(
+      tags$script(src="//cdnjs.cloudflare.com/ajax/libs/annyang/2.6.0/annyang.min.js"),
+      includeScript('init.js')
+    )),
+    div(
+      style = 'display: block; margin: auto; width: 100%; max-width: 1000px',
+      plotlyOutput("scatterplot", height = "100%"),
+      helpText(
+        'You are recommended to use Google Chrome to play with this app.',
+        'To change the title, say something that starts with "title", e.g.',
+        '"title I love the R language", or "title Good Morning".',
+        'To change the color of points, say something that starts with "color",',
+        'e.g. color "blue", or color "green". When the app is unable to recognize the color,',
+        'the points will turn gray.',
+        'To add a regression line, say "regression".',
+        'To make the points bigger or smaller, say "bigger" or "smaller".'
+      )
+    )
+  ),
+  server = function(input, output) {
+    output$scatterplot <- renderPlotly({
+      col <- input$color
+      if (length(col) == 0 || !(col %in% colors())) {
+        col <- "grey10"
+      }
+      p <- ggplot(pisa_au, aes(x = math, y = read)) +
+        geom_point(colour = col, size = input$bigger, alpha = 0.7) +
+        facet_grid(~ gender) +
+        theme(aspect.ratio = 1)
+
+      if (input$yes != "no") {
+        p <- p + geom_smooth(method = "lm", se = TRUE)
+      }
+
+      p <- p + ggtitle(input$title)
+
+      ggplotly(p)
+    })
+  }
+)

Melb_HS/bilby_tutorial/bilby_tutorial_files/figure-html/unnamed-chunk-14-1.png

@@ -0,0 +1,36 @@
+var initVoice = function() {
+if (annyang) {
+  var bigger = 1;
+  Shiny.onInputChange('title', 'hello world');
+  Shiny.onInputChange('color', 'black');
+  Shiny.onInputChange('bigger', 1);
+  Shiny.onInputChange('yes', 'no');
+  var commands = {
+    'title *title': function(title) {
+      Shiny.onInputChange('title', title);
+    },
+    'color :color': function(color) {
+      Shiny.onInputChange('color', color);
+    },
+    'bigger': function() {
+      bigger += 1;
+      Shiny.onInputChange('bigger', bigger);
+    },
+    'smaller': function() {
+      if (bigger >= 1.5) {
+        bigger -= 1;
+        Shiny.onInputChange('bigger', bigger);
+      }
+    },
+    'regression': function() {
+      Shiny.onInputChange('yes', Math.random());
+    }
+  };
+  annyang.addCommands(commands);
+  annyang.start();
+  }
+};
+
+$(function() {
+  setTimeout(initVoice, 10);
+});

Melb_HS/bilby_tutorial/bilby_tutorial_files/figure-html/unnamed-chunk-15-1.png

@@ -0,0 +1,10 @@
+name: Speech
+title: Speech
+account: dicook
+server: shinyapps.io
+appId: 229323
+bundleId: 1045698
+url: https://dicook.shinyapps.io/Speech/
+when: 1508995534.64886
+asMultiple: FALSE
+asStatic: FALSE

Melb_HS/bilby_tutorial/bilby_tutorial_files/figure-html/unnamed-chunk-16-1.png

@@ -0,0 +1,4 @@
+.tutorialTitle:before {
+  content: url("../images/forwards.png") url("../images/rladies.png");
+  display: block;
+}