#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.