## Not run:
# # high level - http()
# api('https://api.github.com/') %>%
# api_path(repos, ropensci, rgbif, commits) %>%
# http()
#
# # low level - http_client()
# res <- api('https://api.github.com/') %>%
# api_path(repos, ropensci, rgbif, commits) %>%
# http_client()
# res$count()
# res$body()
# res$status()
# res$result
# res$links
# res$parse()
#
# # Specify HTTP verb
# api("http://httpbin.org/post") %>%
# api_body(x = "A simple text string") %>%
# http("POST")
# ## End(Not run)
Run the code above in your browser using DataLab