for a NOTE not to compare class with string

Tomoaki Nishiyama · Tomoaki Nishiyama · commit 2faf3fc51ed3 · 2022-08-02T14:08:25.000+09:00
diff --git a/RPostgreSQL/R/PostgreSQLSupport.R b/RPostgreSQL/R/PostgreSQLSupport.R
@@ -705,7 +705,7 @@ postgresqlBuildTableDefinition <- function(dbObj, name, obj, field.types = NULL,
 postgresqlDataType <- function(obj, ...) {
     rs.class <- data.class(obj)
     if(rs.class=="numeric"){
-        sql.type <- if(class(obj)=="integer") "integer" else  "float8"
+        sql.type <- if(is(obj,"integer")) "integer" else  "float8"
     }
     else {
         sql.type <- switch(rs.class,

Original file line number	Diff line number	Diff line change
`@@ -705,7 +705,7 @@ postgresqlBuildTableDefinition <- function(dbObj, name, obj, field.types = NULL,`
`705`	`705`	`postgresqlDataType <- function(obj, ...) {`
`706`	`706`	`rs.class <- data.class(obj)`
`707`	`707`	`if(rs.class=="numeric"){`
`708`		`- sql.type <- if(class(obj)=="integer") "integer" else "float8"`
	`708`	`+ sql.type <- if(is(obj,"integer")) "integer" else "float8"`
`709`	`709`	`}`
`710`	`710`	`else {`
`711`	`711`	`sql.type <- switch(rs.class,`