{
simon <- new("contact", familyname = "Goring", givennames = "Simon J.")
socorro <- new("contact", familyname = "Dominguez", givennames = "Socorro")
first_author <- new("author", author = simon, order = 1)
second_author <- new("author", author = socorro, order = 2)
author_list <- new("authors", authors = list(first_author, second_author))
pub <- new("publication",
articletitle = "Top or bottom: Best toast spreading surfaces.",
journal = "Peanut Butter Science",
year = "2022",
volume = "2",
author = author_list)
}
Run the code above in your browser using DataLab