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@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 |e...@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@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-package-devel