Fixed error with backtick handling in select statement.

timmarch · timmarch · commit cfc493ef799b · 2016-06-26T14:01:55.000+10:00
diff --git a/R/getSymbols.R b/R/getSymbols.R
@@ -633,9 +633,9 @@ function(Symbols,env,return.class='xts',
             }
           
             if (!is.null(from) & !is.null(to)) {
-              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM `", Symbols[[i]], "` WHERE date >= '", from, "' AND date <= '", to, "' ORDER BY date")
+              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM ", paste("`", Symbols[[i]], "`", sep = ""), " WHERE date >= '", from, "' AND date <= '", to, "' ORDER BY date")
             } else {
-              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM `", Symbols[[i]], "` WHERE date ORDER BY date")
+              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM ", paste("`", Symbols[[i]], "`", sep = ""), " WHERE date ORDER BY date")
             }
             
             rs <- DBI::dbSendQuery(con, query)

Original file line number	Diff line number	Diff line change
`@@ -633,9 +633,9 @@ function(Symbols,env,return.class='xts',`
`633`	`633`	`}`
`634`	`634`
`635`	`635`	`if (!is.null(from) & !is.null(to)) {`
`636`		- query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM `", Symbols[[i]], "` WHERE date >= '", from, "' AND date <= '", to, "' ORDER BY date")
	`636`	+ query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM ", paste("`", Symbols[[i]], "`", sep = ""), " WHERE date >= '", from, "' AND date <= '", to, "' ORDER BY date")
`637`	`637`	`} else {`
`638`		- query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM `", Symbols[[i]], "` WHERE date ORDER BY date")
	`638`	+ query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM ", paste("`", Symbols[[i]], "`", sep = ""), " WHERE date ORDER BY date")
`639`	`639`	`}`
`640`	`640`
`641`	`641`	`rs <- DBI::dbSendQuery(con, query)`