R/crossref.R

In fschaffner/websearchr: Access Domains and Search Popular Websites

#' Find DOI's and other bibliographic metadata
#' @description Search crossref.org directly from the R console without having to switching to the browser and
#' opening a new tab first.
#' @param search_terms Search terms encapsulated in " ".
#' @keywords DOI bibliography internet workflow
#' @importFrom utils URLencode browseURL
#' @examples
#' crossref("my source")
#' @export

crossref <- function(search_terms) {
  if (missing(search_terms)) {
    message("Opening crossref.org in browser")
    browseURL(paste0("http://www.crossref.org"))
  }
  else {
    message("Opening crossref.org search for \"", search_terms, "\" in browser")
    utils::browseURL(paste0("http://search.crossref.org/?q=", utils::URLencode(search_terms)))
  }
}