Nothing
github_check <- function(req) {
if (req$status_code < 400)
return('Starred!')
message <- github_parse(req)$message
return(paste(req$status_code, message, ":"))
}
#'@importFrom httr content
#'@importFrom jsonlite fromJSON
github_parse <- function(req) {
text <- httr::content(req, as = 'text')
if (identical(text, ''))
stop('No output to parse', call. = FALSE)
jsonlite::fromJSON(text, simplifyVector = FALSE)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.