Think about DSL for APIs

[hadley]

github <- api_endpoint('https://api.github.com/') %>%
  api_oauth2(...) %>%
  api_error_handler(...)

github %>%
  api_path('repos', username, repo, 'issues') %>%
  GET(config(token = my_token))

# longer but simpler
github %>%
  api_path('repos') %>%
  api_path(username) %>%
  api_path(repo) %>%
  api_path('issues') %>%
  GET()

# with interpolation
repo_info <- list(username = 'craigcitro', repo = 'r-travis')
github %>% 
  api_template('repos/{username}/{repo}/issues', repo_info) %>%
  GET()

cc @craigcitro

[hadley]

Now think this belongs elsewhere, e.g. https://github.com/sckott/httsnap