# NOT RUN {
# Retrieve all accession data by country of origin
accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")))
# Fetch Musa
musa <- genesysr::fetch_accessions(list(taxonomy.genus = c('Musa')))
# Apply selector function
accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")), selector = function(x) {
list(id = x$id, acceNumb = x$acceNumb, instCode = x$institute$code)
})
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab