Hi Dirk, 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.
Best regards, Thierry ir. Thierry Onkelinx Statisticus / Statistician Vlaamse Overheid / Government of Flanders INSTITUUT VOOR NATUUR- EN BOSONDERZOEK / RESEARCH INSTITUTE FOR NATURE AND FOREST Team Biometrie & Kwaliteitszorg / Team Biometrics & Quality Assurance thierry.onkel...@inbo.be Havenlaan 88 bus 73, 1000 Brussel *Postadres:* Koning Albert II-laan 15 bus 186, 1210 Brussel *Poststukken die naar dit adres worden gestuurd, worden ingescand en digitaal aan de geadresseerde bezorgd. Zo kan de Vlaamse overheid haar dossiers volledig digitaal behandelen. Poststukken met de vermelding ‘vertrouwelijk’ worden niet ingescand, maar ongeopend aan de geadresseerde bezorgd.* www.inbo.be /////////////////////////////////////////////////////////////////////////////////////////// To call in the statistician after the experiment is done may be no more than asking him to perform a post-mortem examination: he may be able to say what the experiment died of. ~ Sir Ronald Aylmer Fisher The plural of anecdote is not data. ~ Roger Brinner The combination of some data and an aching desire for an answer does not ensure that a reasonable answer can be extracted from a given body of data. ~ John Tukey /////////////////////////////////////////////////////////////////////////////////////////// <https://www.inbo.be> Op ma 19 aug 2024 om 15:39 schreef Dirk Eddelbuettel <e...@debian.org>: > > On 19 August 2024 at 15:15, Thierry Onkelinx wrote: > | Maybe checklist:::author2df() might be useful. It is an unexported > function > | from my checklist package. It converts a person() object to a dataframe. > | > https://github.com/inbo/checklist/blob/5649985b58693acb88337873ae14a7d5bc018d96 > | /R/store_authors.R#L38 > | > | df <- tools::CRAN_package_db() > | lapply( > | df$`Authors@R`[df$Package %in% c("git2rdata", "qrcode")], > | function(x) { > | parse(text = x) |> > | eval() |> > | vapply(checklist:::author2df, vector(mode = "list", 1)) |> > | do.call(what = rbind) > | } > | ) > | > | > | [[1]] > | given family email orcid > affiliation usage > | 1 Thierry Onkelinx thierry.onkel...@inbo.be 0000-0001-8804-4216 > <NA> 1 > | 2 Floris Vanderhaeghe floris.vanderhae...@inbo.be 0000-0002-6378-6229 > <NA> 1 > | 3 Peter Desmet peter.des...@inbo.be 0000-0002-8442-8025 > <NA> 1 > | 4 Els Lommelen els.lomme...@inbo.be 0000-0002-3481-5684 > <NA> 1 > | > | [[2]] > | given family email orcid affiliation > usage > | 1 Thierry Onkelinx qrc...@muscardinus.be 0000-0001-8804-4216 > <NA> 1 > | 2 Victor Teh victor...@gmail.com > > That's a very nice start, thank you. (Will also look more closely at > checklist.) It needs an `na.omit()` or alike, and even with that `rbind` > barked a few entries in (i = 19 if you select the full vector right now). > > But definitely something to play with and possibly build upon. Thanks! > (And > the IDs of Floris and you were two of the ones I 'manually' added to a > DESCRIPTION file ;-) > > Best, Dirk > > -- > dirk.eddelbuettel.com | @eddelbuettel | e...@debian.org > [[alternative HTML version deleted]] ______________________________________________ R-package-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-package-devel
