#' Search GitHub
#' @description Improve your workflow by searching GitHub directly from R console.
#' @param search_terms Search terms encapsulated in " ".
#' @keywords github internet workflow
#' @examples
#' github("ggplot extensions")
#' @export
github <- function(search_terms) {
if (missing(search_terms)) {
message("Opening GitHub in browser")
browseURL(paste0("https://github.com/"))
}
else {
message("Opening GitHub search for \"", search_terms, "\" in browser")
browseURL(paste0("https://github.com/search?q=", URLencode(search_terms)))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.