brooke-watson

# ---------------------------------------
# untidy data 
# ---------------------------------------

# this dataset is a sample of the kind of data that might appear in the wild, 
# particularly when dealing with government data, 
# particularly when trying to convert an output table or individual report 
# back into a raw data format that can be analyzed. 

# in these test datasets, discrete observations are spread out across multiple rows. 

brooke-watson

# Weekly release script (modeled off of https://gist.github.com/alicegoldfuss/d9a4a8cce0b45e3d37060a07aec616dc)

library(httr) 
library(tidyverse)
library(twilio)
library(emo)

HEADERS <- c(Accept = 'application/vnd.github.inertia-preview+json') # named vector for add_headers
GH_TOKEN <- "XXX" # Your auth token from https://github.com/settings/tokens
Sys.setenv(TWILIO_SID = "XXX") # Your Account SID from twilio.com/console

brooke-watson

'%=%' = function(l, r, ...)
  UseMethod('%=%')

  # Binary Operator
  '%=%.lbunch' = function(l, r, ...) {
    Envir = as.environment(-1)

    if (length(r) > length(l))
      warning("Right side has more args than left side. Only first ", length(l), " arguments used.")