From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Fri, 23 Oct 2009 20:37:25 +0000 (+0000)
Subject: add Author and Maintainer fields to description
X-Git-Url: https://git.donarmstrong.com/?p=cran2deb.git;a=commitdiff_plain;h=08f225b89de727ee7779159c721143a0c8609e81

add Author and Maintainer fields to description

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@282 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---

diff --git a/trunk/R/debcontrol.R b/trunk/R/debcontrol.R
index 22afb2d..f9aeecd 100644
--- a/trunk/R/debcontrol.R
+++ b/trunk/R/debcontrol.R
@@ -163,8 +163,11 @@ generate_control <- function(pkg) {
     # the longer description does not begin on the synopsis line --- R's
     # write.dcf does not appear to have a nicer way of doing this.
     descr = paste(descr,'"\n\n', long_descr, sep='')
-    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='')
+        }
     }
     control[2,'Description'] = descr