Replaced start/end variables with from/to to match rest of package.

Replaced database.table with `table` in select statement.

Author: timmarch

R/getSymbols.R

@@ -599,7 +599,7 @@ function(Symbols,env,return.class='xts',
                                db.fields=c('date','o','h','l','c','v','a'),
                                field.names = NULL,
                                user=NULL,password=NULL,dbname=NULL,host='localhost',port=3306,
-                               start=NULL, end=NULL, ...) {
+                               from=NULL, to=NULL, ...) {
      importDefaults("getSymbols.MySQL")
      this.env <- environment()
      for(var in names(list(...))) {
@@ -632,10 +632,10 @@ function(Symbols,env,return.class='xts',
                 cat(paste('Loading ',Symbols[[i]],paste(rep('.',10-nchar(Symbols[[i]])),collapse=''),sep=''))
             }
 
-            if (!is.null(start) & !is.null(end)) {
-              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM ", paste(dbname, ".", Symbols[[i]], sep = ""), " WHERE date >= '", start, "' AND date <= '", end, "' ORDER BY date")
+            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")
             } else {
-              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM ", paste(dbname, ".", Symbols[[i]], sep = ""), " WHERE date ORDER BY date")
+              query <- paste("SELECT ", paste(db.fields, collapse = ","), " FROM `", Symbols[[i]], "` WHERE date ORDER BY date")
             }
 
             rs <- DBI::dbSendQuery(con, query)