Nothing
#' Get issues from GitHub repository
#'
#' @param ref Repository reference (list) created by \code{tidytracker::create_repo_reference}
#' @param ... Additional arguments passed to the GET query
#'
#' @return List of issues from GitHub repository
#' @export
#'
#' @examples
#' \dontrun{
#' tidytracker <- create_repo_reference('emilyriederer', 'tidytracker')
#' tt_issues_res <- get_issues(tidytracker)
#' tt_issues <- parse_issues(tt_issues_res)
#' }
get_issues <- function(ref, ...){
req <-
httr::GET(
url = paste0(ref$base_url,"/issues"),
query = list(state = "all", per_page = 100, page = 1, ...),
config = httr::authenticate(Sys.getenv(ref$id), Sys.getenv(ref$pw)),
encode = "json"
)
res <- httr::content(req)
res
}
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.