Fixed error with backtick handling in select statement.

joshuaulrich · Jun 26, 2016 · cfc493e · cfc493e
1 parent 59de2bd
commit cfc493e
Showing 1 changed file with 2 additions and 2 deletions.
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)