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

[Dirk Eddelbuettel]

On 20 August 2024 at 15:13, Chris Evans wrote:
| As I think that should be
| 
| fortunes::fortune("Dirk can type")
| 
| rather than
| 
| fortune::fortunes("Dirk can type")

Yes, thank you. I also failed to run that post through CI and testing before
sending.  Doing too many things at once...

Dirk
 
| 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]]
| 
| ______________________________________________
| R-package-devel using r-project.org mailing list
| https://stat.ethz.ch/mailman/listinfo/r-package-devel

-- 
dirk.eddelbuettel.com | @eddelbuettel | edd using debian.org