R/browse_DOI.R

In metagear: Comprehensive Research Synthesis Tools for Systematic Reviews and Meta-Analysis

#' Opens a web page associated with a DOI (digital object identifier).
#'
#' Uses the DOI name of a study reference to locate the e-journal website,
#'    or reference/citation website in Web of Science, Google Scholar, or 
#'    CrossRef.  Opens in default web-browser.    
#'
#' @param theDOI A string that identifies an electronic document on the web.
#' @param host A string that defines the domain link used to open the DOI.  The 
#'    default, \code{"DOI"}, will open to the web page associated with 
#'    the DOI (e.g., publisher website).  Other options include \code{"WOS"} that 
#'    will open the DOI in Web of Science, \code{"GS"} in Google Scholar, and 
#'    \code{"CRF"} in Crossref.
#'
#' @return NULL
#'
#' @examples \dontrun{
#'
#' browse_DOI("10.1086/603628")        
#'}
#'
#' @importFrom utils browseURL
#' @export browse_DOI

browse_DOI <- function(theDOI, 
                       host = "DOI") {
                      
  theDomain <- switch(host, 
                      DOI = "http://dx.doi.org/",
                      WOS = "http://ws.isiknowledge.com/cps/openurl/service?url_ver=Z39.88-2004&rft_id=info:doi/",
                      GS  = "http://scholar.google.com/scholar?q=",
					  CRF = "https://search.crossref.org/?q="
  )
  browseURL(paste0(theDomain, theDOI))
}