- if ('URL' %in% colnames(pkg$description)) {
- descr = paste(descr,'\n\nURL: ',pkg$description[1,'URL'],sep='')
+ # add some extra nice info about the original R package
+ 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='')
+ }