x <- taxon_authority(c('Cham. & Schldl.', 'L.'),
date = c('1827', '1753'),
citation = c(NA, 'Species Plantarum'))
tax_cite(x)
tax_cite(x)[1] <- "Cham. et al 1984"
Run the code above in your browser using DataLab