Convert scivrs_author list to CRediT JATS format
author_jats(author)list with class scivrs_author or list with class scivrs_study and at least one entry for authors
string in JATS format (see https://jats4r.org/credit-taxonomy)
ld <- author(
orcid = "0000-0002-7523-5539",
surname = "DeBruine", given = "Lisa M.",
roles = list("Conceptualization", "Methodology")
)
author_jats(ld) %>% cat()
#> <contrib-group>
#> <contrib>
#> <contrib-id authenticated="true" contrib-id-type="orcid">https://orcid.org/0000-0002-7523-5539</contrib-id>
#> <string-name>
#> <surname>DeBruine</surname>
#> <given-names>Lisa M.</given-names>
#> </string-name>
#> <role vocab="credit"
#> vocab-identifier="http://credit.niso.org/"
#> vocab-term="Conceptualization"
#> vocab-term-identifier="http://credit.niso.org/contributor-roles/conceptualization/">Conceptualization</role>
#> <role vocab="credit"
#> vocab-identifier="http://credit.niso.org/"
#> vocab-term="Methodology"
#> vocab-term-identifier="http://credit.niso.org/contributor-roles/methodology/">Methodology</role>
#> </contrib>
#> </contrib-group>