Nothing
#' Get personal data for a person
#'
#' @export
#' @inheritParams orcid_works
#' @param details (logical). also get details. Default: `FALSE`
#' @template deets
#'
#' @examples \dontrun{
#' res <- orcid_person(orcid = "0000-0002-9341-7985")
#' res$`0000-0002-9341-7985`
#' names(res$`0000-0002-9341-7985`)
#' res$`0000-0002-9341-7985`$`last-modified`
#' res$`0000-0002-9341-7985`$`keywords`
#' res$`0000-0002-9341-7985`$`biography`
#' }
orcid_person <- function(orcid, details = FALSE, ...) {
pth <- if (details) "personal-details" else "person"
stats::setNames(lapply(orcid, orcid_prof_helper, path = pth, ...), orcid)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.