context("Basic Tests")
test_that("A basic rgithub context can be acquired", {
create.github.context("https://api.github.com")
repos <- get.user.repositories("cscheid")
repos_overview <- do.call("rbind",
lapply(repos$content[1:5], function(x) {
data.frame(name = x$name,
owner = x$owner$login,
updated_at = x$updated_at)}))
cat("\n")
print(repos_overview)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.