db: don't quote spaces, semi-colons and commas: it's weird.

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

diff --git a/pkg/trunk/R/db.R b/pkg/trunk/R/db.R
index a4dedd021e8f7e3e6de6e29eb8300900d91a933f..5b5ab3be6dc0a7ddaacd4ece418aac0c9bb8ffaa 100644 (file)
--- a/pkg/trunk/R/db.R
+++ b/pkg/trunk/R/db.R
@@ -74,7 +74,7 @@ db_stop <- function(con,bump=F) {
 }
 
 db_quote <- function(text) {
-    return(paste('"',gsub('([^][[:alnum:]*?. ()<>:/=+%-])','\\\\\\1',text),'"',sep=''))
+    return(paste('"',gsub('([^][[:alnum:][:space:]*?.,()<>;:/=+%-])','\\\\\\5',text),'"',sep=''))
 }
 
 db_now <- function() {