repo_info <- list(username = 'craigcitro', repo = 'r-travis')
api('https://api.github.com/') %>%
    api_template(template = 'repos/{{username}}/{{repo}}/issues', data = repo_info) %>% 
    peep
#> <http request> 
#>   url: https://api.github.com/
#>   paths: ## should be shown here
#>   query: 
#>   body: 
#>   paging: 
#>   headers: 
#>   rate limit: 
#>   retry (n/delay (s)): /
#>   error handler: 
#>   config: