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

[cran2deb.git] / pkg / trunk / R / db.R

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() {