[R-pkg-devel] ORCID ID finder via tools::CRAN_package_db() ?

[Chris Evans]

As I think that should be

fortunes::fortune("Dirk can type")

rather than

fortune::fortunes("Dirk can type")

I think that has become both recursive and demonstrating excellent 
test-retest stability!  Oh boy do I know that issue!

Chris

On 20/08/2024 14:57, Dirk Eddelbuettel wrote:
> Hi Kurt,
>
> On 20 August 2024 at 14:29, Kurt Hornik wrote:
> | I think for now you could use something like what I attach below.
> |
> | Not ideal: I had not too long ago starting adding orcidtools.R to tools,
> | which e.g. has .persons_from_metadata(), but that works on the unpacked
> | sources and not the CRAN package db.  Need to think about that ...
>
> We need something like that too as I fat-fingered the string 'ORCID'. See
> fortune::fortunes("Dirk can type").
>
> Will the function below later. Many thanks for sending it along.
>
> Dirk
>
> |
> | Best
> | -k
> |
> | ********************************************************************
> | x <- tools::CRAN_package_db()
> | a <- lapply(x[["Authors using R"]],
> |             function(a) {
> |                 if(!is.na(a)) {
> |                     a <- tryCatch(utils:::.read_authors_at_R_field(a),
> |                                   error = identity)
> |                     if (inherits(a, "person"))
> |                         return(a)
> |                 }
> |                 NULL
> |             })
> | a <- do.call(c, a)
> | a <- lapply(a,
> |             function(e) {
> |                 if(is.null(o <- e$comment["ORCID"]) || is.na(o))
> |                     return(NULL)
> |                 cbind(given = paste(e$given, collapse = " "),
> |                       family = paste(e$family, collapse = " "),
> |                       oid = unname(o))
> |             })
> | a <- as.data.frame(do.call(rbind, a))
> | ********************************************************************
> |
> | > Salut Thierry,
> |
> | > On 20 August 2024 at 13:43, Thierry Onkelinx wrote:
> | > | Happy to help. I'm working on a new version of the checklist package. I could
> | > | export the function if that makes it easier for you.
> |
> | > Would be happy to help / iterate. Can you take a stab at making the
> | > per-column split more robust so that we can bulk-process all non-NA entries
> | > of the returned db?
> |
> | > Best, Dirk
> |
> | > --
> | > dirk.eddelbuettel.com | @eddelbuettel |edd using debian.org
>
-- 
Chris Evans (he/him)
Visiting Professor, UDLA, Quito, Ecuador & Honorary Professor, 
University of Roehampton, London, UK.
Work web site: https://www.psyctc.org/psyctc/
CORE site: http://www.coresystemtrust.org.uk/
Personal site: https://www.psyctc.org/pelerinage2016/
Emeetings (Thursdays): 
https://www.psyctc.org/psyctc/booking-meetings-with-me/
(Beware: French time, generally an hour ahead of UK)
<https://ombook.psyctc.org/book>
	[[alternative HTML version deleted]]