R/orcid.R

In lwjohnst86/lwj: My Own Functions

#' My ORCID number.
#'
#' @return Character vector of my ORCID number.
#' @export
#'
orcid <- function() {
    "0000-0003-4169-2616"
}


#' ORCID number icon for HTML.
#'
#' @return Character vector of the HTML source for the icon.
#' @export
#'
orcid_icon_html <- function() {
    '<a href="https://orcid.org/0000-0003-4169-2616" target="orcid.widget" rel="noopener noreferrer" style="vertical-align:top;"><img src="https://orcid.org/sites/default/files/images/orcid_16x16.png" style="width:1em;margin-right:.5em;" alt="ORCID iD icon">0000-0003-4169-2616</a>'
}