authors <- (
  if ('Authors' %in% names(meta)) meta$Authors
  else eval(parse(text = meta$`Authors@R`))
)
year         <- 2015L
title        <- 'destiny: diffusion maps for large-scale single-cell data in R'
organization <- 'Helmholtz-Zentrum München'
url          <- 'http://bioinformatics.oxfordjournals.org/content/32/8/1241'

bibentry('Article', sprintf(
		'%s %s et al. (%s): %s. %s. URL: <%s>.',
		authors[[1]]$given, authors[[1]]$family, year,
		title, organization, url),
	title        = title,
	volume       = 32L,
	number       = 8L,
	url          = url,
	doi          = '10.1093/bioinformatics/btv715',
	journal      = 'Bioinformatics',
	author       = authors,
	pages        = 1241:1243,
	organization = organization,
	address      = 'Ingolstädter Landstraße 1, Neuherberg, Germany',
	year         = year,
	note         = 'More information at <http://www.helmholtz-muenchen.de/icb/destiny>')
