R/gcite_url.R

In muschellij2/gcite: Google Citation Parser

#' @title Google Citations URL
#' @description Simple wrapper for adding in \code{pagesize} 
#' and start values for the page
#'
#' @param url URL of the google citations page
#' @param cstart Starting value for the citation page
#' @param pagesize number of citations to return, max is 100
#'
#' @return A character string
#' @export
#'
#' @importFrom httr build_url parse_url
#' @examples
#' url = "https://scholar.google.com/citations?user=T9eqZgMAAAAJ"
#' gcite_url(url = url, pagesize = 100, cstart = 5)
gcite_url = function(url, cstart = 0, pagesize = 100) {
  hres = httr::parse_url(url)
  hres$query$pagesize = pagesize
  hres$query$cstart = cstart
  url = httr::build_url(hres)
  return(url)
}

#' @rdname gcite_url
#' @export
#' @param secure should https be used (default), instead of http
gcite_base_url = function(secure = TRUE) {
  url <- paste0(
    "http", ifelse(secure, "s", ""), "://scholar.google.com/"
  )
  return(url)
}

#' @rdname gcite_url
#' @param user Username/user ID for Google Scholar Citations  
#' @export
gcite_user_url <- function(
  user,
  secure = TRUE) {
  ### search the page
  url <- paste0(
    gcite_base_url(secure = secure),
    "citations?",
    paste0("user=", user)
  )
  return(url)
}