make odbcDataType() respect integer64

NEWS.md

@@ -1,5 +1,8 @@
 # odbc (development version)
 
+* The Microsoft SQL Server method for `odbcDataType()` will now return `"BIGINT"`
+  for integer64 objects rather than converting to `"FLOAT"` (@simonpcouch, #698).
+
 * `databricks()` now works with manually supplied `pwd` and `uid` (#690).
 
 * SQL Server: correctly enumerate schemas across databases in connections pane

R/driver-access.R

@@ -11,6 +11,7 @@ NULL
     time = "TIME",
     binary = "BINARY",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "DOUBLE",
     character = varchar(obj),
     logical = "BIT",

R/driver-bigquery.R

@@ -10,6 +10,7 @@ NULL
     date = "DATE",
     binary = "BYTES",
     integer = "INT64",
+    int64 = "INT64",
     double = "FLOAT64",
     character = "STRING",
     logical = "BOOL",

R/driver-hive.R

@@ -30,6 +30,7 @@ setMethod("dbQuoteString", c("Hive", "character"),
     date = "DATE",
     binary = "BINARY",
     integer = "INT",
+    int64 = "INT",
     double = "DOUBLE",
     character = "STRING",
     logical = "BOOLEAN",

R/driver-impala.R

@@ -9,6 +9,7 @@ NULL
     datetime = "STRING",
     date = "VARCHAR(10)",
     integer = "INT",
+    int64 = "INT",
     double = "DOUBLE",
     character = "STRING",
     logical = "BOOLEAN",

R/driver-mysql.R

@@ -10,6 +10,7 @@ NULL
     time = "TIME",
     binary = "BLOB",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "DOUBLE",
     character = "TEXT",
     logical = "TINYINT",

R/driver-oracle.R

@@ -135,6 +135,7 @@ odbcDataType.Oracle <- function(con, obj, ...) {
     datetime = "TIMESTAMP",
     binary = "BLOB",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "BINARY_DOUBLE",
     character = "VARCHAR2(255)",
     logical = "DECIMAL",

R/driver-postgres.R

@@ -10,6 +10,7 @@ NULL
     time = "TIME",
     binary = "bytea",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "DOUBLE PRECISION",
     character = "TEXT",
     logical = "BOOLEAN",

R/driver-redshift.R

@@ -5,6 +5,7 @@
     datetime = "TIMESTAMP",
     date = "DATE",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "DOUBLE PRECISION",
     character = "VARCHAR(255)",
     logical = "BOOLEAN",

R/driver-snowflake.R

@@ -11,6 +11,7 @@ NULL
     time = "TIME",
     binary = "BINARY",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "FLOAT",
     character = "VARCHAR",
     logical = "BOOLEAN",

R/driver-spark.R

@@ -29,6 +29,7 @@ setMethod("odbcConnectionSchemas", "Spark SQL",
     date = "DATE",
     binary = "BINARY",
     integer = "INT",
+    int64 = "INT",
     double = "DOUBLE",
     character = "VARCHAR(255)",
     logical = "BOOLEAN",

R/driver-sql-server.R

@@ -165,6 +165,7 @@ setMethod("sqlCreateTable", "Microsoft SQL Server",
     time = "TIME",
     binary = varbinary(obj),
     integer = "INT",
+    int64 = "BIGINT",
     double = "FLOAT",
     character = varchar(obj),
     logical = "BIT",

R/driver-sqlite.R

@@ -9,6 +9,7 @@ NULL
     date = "NUMERIC",
     binary = "BLOB",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "REAL",
     character = "TEXT",
     logical = "NUMERIC",

R/driver-teradata.R

@@ -74,6 +74,7 @@ setMethod("odbcConnectionTables", c("Teradata", "character"),
     time = "TIME",
     binary = "BLOB",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "FLOAT",
     character = "VARCHAR(255)",
     logical = "BYTEINT",

R/driver-vertica.R

@@ -8,6 +8,7 @@ NULL
     datetime = "TIMESTAMP",
     date = "DATE",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "DOUBLE PRECISION",
     character = "VARCHAR",
     logical = "BOOLEAN",

R/odbc-data-type.R

@@ -62,6 +62,7 @@ odbcDataType.default <- function(con, obj, ...) {
     time = "TIME",
     binary = "VARBINARY(255)",
     integer = "INTEGER",
+    int64 = "INTEGER",
     double = "DOUBLE PRECISION",
     character = "VARCHAR(255)",
     logical = "BIT", # only valid if DB supports Null fields
@@ -92,6 +93,9 @@ object_type <- function(obj) {
   if (is(obj, "difftime")) {
     return("time")
   }
+  if (is(obj, "integer64")) {
+    return("int64")
+  }
 
   return(typeof(obj))
 }