for (r_info in c('Author','Maintainer','URL')) {
if (r_info %in% colnames(pkg$description)) {
descr = paste(descr,'\n\n',r_info,': ',pkg$description[1,r_info],sep='')
for (r_info in c('Author','Maintainer','URL')) {
if (r_info %in% colnames(pkg$description)) {
descr = paste(descr,'\n\n',r_info,': ',pkg$description[1,r_info],sep='')