# Create a person object.
a_person <- person(
given = "First", family = "Author",
role = c("aut", "cre"),
email = "[email protected]", comment = c(
ORCID = "0000-0001-8457-4658",
affiliation = "An affiliation"
)
)
a_person
cff_person <- as_cff_person(a_person)
# Classes `cff_pers_lst` and `cff`.
class(cff_person)
# Each element has classes `cff_pers` and `cff`.
class(cff_person[[1]])
# Print.
cff_person
# Back to person object with S3 method.
as.person(cff_person)
# Coerce a string.
a_str <- paste0(
"Julio Iglesias ",
"(city: Miami, region: California, country: US)"
)
as_cff_person(a_str)
# Several persons.
persons <- c(
person("Clark", "Kent", comment = c(affiliation = "Daily Planet")),
person("Lois", "Lane"), person("Oscorp Inc.")
)
a_cff <- as_cff_person(persons)
a_cff
# Print as BibTeX with the method.
toBibtex(a_cff)
# Or as a `person` object.
as.person(a_cff)
# Or use BibTeX style as input.
x <- "Frank Sinatra and Dean Martin and Davis, Jr., Sammy and Joey Bishop"
as_cff_person(x)
as_cff_person("Herbert von Karajan")
toBibtex(as_cff_person("Herbert von Karajan"))
Run the code above in your browser using DataLab