year = sub('.*(2[[:digit:]]{3})-.*', '\\1', meta$Date, perl = TRUE)
if (length(year) == 0) year = format(Sys.Date(), '%Y')
vers = paste('R package version', meta$Version)
auth = format(Filter(function(p) 'aut' %in% p$role, as.person(meta$Author)), c('given', 'family'))

bibentry(
  bibtype = 'Manual',
  title = paste('openxlsx2:', meta$Title),
  author = auth,
  year = year,
  note = vers,
  url = strsplit(meta$URL, ',')[[1]][1],
  textVersion = paste0(
    paste(auth, collapse = ' and '), ' (', year, '). openxlsx2: ', meta$Title, '. ', vers, '.',
    ' URL https://github.com/JanMarvin/openxlsx2.'
  )
)
