added simply 'group by' on explanation for db_blacklist_reason

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

diff --git a/trunk/R/db.R b/trunk/R/db.R
index 163ba9a4fa6f2eb3014b7542e9b2950ee2205d92..e563c71bd03991da36198036296cc5c17bbda17a 100644 (file)
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -442,7 +442,7 @@ db_blacklist_packages <- function() {
 
 db_blacklist_reasons <- function () {
     con <- db_start()
-    packages <- dbGetQuery(con,'SELECT package,explanation from blacklist_packages')
+    packages <- dbGetQuery(con,'SELECT package,explanation from blacklist_packages group by explanation')
     db_stop(con)
     return(packages)
 }