From 302d4a36be0f3eafa0ddec0d571c56758ae40113 Mon Sep 17 00:00:00 2001 From: edd Date: Sat, 5 Dec 2009 16:42:50 +0000 Subject: [PATCH] add a missing quote() around sql statement part git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@289 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- trunk/R/db.R | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/trunk/R/db.R b/trunk/R/db.R index b8a37e2..285b2ce 100644 --- a/trunk/R/db.R +++ b/trunk/R/db.R @@ -316,14 +316,16 @@ db_record_build <- function(package, deb_version, log, success=F) { # Error in dbGetQuery(con, paste("INSERT OR REPLACE INTO builds", "(package,system,r_version,deb_epoch,deb_revision,db_version,success,date_stamp,time_stamp,scm_revision,log)", : # error in evaluating the argument 'statement' in selecting a method for function 'dbGetQuery' - log = paste(log,collapse='\n') - end = nchar(log) - max_log_len = 1024 + log <- paste(log,collapse='\n') + end <- nchar(log) + max_log_len <- 1024 if (end > max_log_len) { - log = db_quote(substr(log,end-max_log_len,end)) + log <- db_quote(substr(log,end-max_log_len,end)) + } else { + log <- db_quote(substr(log)) } con <- db_start() - o <-options(digits.secs = 6) + o <- options(digits.secs = 6) sqlcmd <- paste('INSERT OR REPLACE INTO builds' ,'(package,system,r_version,deb_epoch,deb_revision,db_version,success,date_stamp,time_stamp,scm_revision,log)' ,'VALUES' -- 2.39.2