stephlocke

if(!require(locketweet))
  devtools::install_github("lockedata/locketweet")
library(tidyverse)
library(locketweet)

locketweet::lockedata_blog %>%
  filter(date.x >= as.Date("2016-10-01"),
         coalesce(tolower(author), "steph") == 
           "steph") %>%
  select(starts_with("cat_")) %>%

stephlocke

library(recipes)
library(tidyverse)
library(AppliedPredictiveModeling)

data(AlzheimerDisease)
predictors %>% 
  cbind(diagnosis) ->
  alzheimers

alzheimers %>% 

stephlocke

• Have a Code of Conduct and a demonstrable commitment to diversity
  • The Code of Conduct must be prominently displayed
  • Sponsors and other third parties must adhere to the Code of Conduct
• Provide a mechanism for low income attendees to get reduced prices and support where the event charges more than a day's income
• Attendees encounter only non-defaulted opt-ins to marketing and future contact, especially from third parties
• The data entrusted to the event is handled with due care and consideration
• Diverse attendees' needs are considered and taken into consideration. Things like (but not limited to) large print agendas, gender neutral bathrooms, quiet rooms, family rooms, and prayer rooms are implemented to ensure a pleasant experience for all attendee
• Volunteers and organisers should receive reduced or free entry to the event
• New speakers are encouraged and offered extra support
• The speaker selection process is performed in a way that reduces possible sources of bias

stephlocke

.collapsibleTree .node circle {
  fill: #E8830C;
  stroke: #E8830C;
}

.collapsibleTree .node text {
  fill: white;
}

.collapsibleTree .link {

stephlocke

library(xml2)
library(tidyverse)

## Extract any number of xml files
list.files(pattern="*.xml") %>% 
  map(read_xml) %>% 
  ## Convert to a list to process
  map(as_list) %>%
  ## Simplify list structure
  map(flatten) %>%

stephlocke

## ----setup, include=FALSE------------------------------------------------
library(learnr)
library(tidyverse)
library(modelr)
library(DBI)
library(odbc)
library(broom)
library(FFTrees)
library(caret)
## ----dbconn, eval=FALSE, echo=TRUE---------------------------------------

stephlocke

---
title: "Chicago Food Inspections"
output: html_notebook
---

```{r setup}
library(readr)
library(dplyr)

readrestaurant<-function(x){

stephlocke

Sign up

• [If no existing Azure subscription / credits] Azure Trial
• Locke Data Slack

Azure config

• Configure Azure ML resources

Program installation links

• R
• R

stephlocke

library(devtools)
install_github("lockedata/pRojects")
install_github("ropenscilabs/codefinch")

stephlocke

library(xml2)
library(urltools)
library(fuzzyjoin)
library(tibble)

construct_df <- function(x) {
  urls <- xml_text(xml_find_all(x, "//d1:loc"))
  df <- data_frame(url = urls, path = path(urls))
  df[!(is.na(df$path) |
         grepl("^blog/tags", df$path)),