fix lint

ben-schwen · ben-schwen · commit 3aba1cc45433 · 2024-11-03T22:25:45.000+01:00
diff --git a/R/bmerge.R b/R/bmerge.R
@@ -71,7 +71,7 @@ bmerge = function(i, x, icols, xcols, roll, rollends, nomatch, mult, ops, verbos
       stopf("Incompatible join types: %s (%s) and %s (%s). Factor columns must join to factor or character columns.", xname, xclass, iname, iclass)
     }
     if (xclass == iclass) {
-      if (length(icols)>1 && class(x[[xc]])=="Date" && class(i[[ic]])=="Date") {
+      if (length(icols)>1 && is(x[[xc]], "Date") && is(i[[ic]], "Date")) {
         set(x, j=xc, value=as.double(x[[xc]]))
         set(i, j=ic, value=as.double(i[[ic]]))
         if (verbose) catf("%s and %s are both Dates. R does not guarentee a type for Date internally, hence, coercing to double.\n",  iname, xname)

Original file line number	Diff line number	Diff line change
`@@ -71,7 +71,7 @@ bmerge = function(i, x, icols, xcols, roll, rollends, nomatch, mult, ops, verbos`
`71`	`71`	`stopf("Incompatible join types: %s (%s) and %s (%s). Factor columns must join to factor or character columns.", xname, xclass, iname, iclass)`
`72`	`72`	`}`
`73`	`73`	`if (xclass == iclass) {`
`74`		`- if (length(icols)>1 && class(x[[xc]])=="Date" && class(i[[ic]])=="Date") {`
	`74`	`+ if (length(icols)>1 && is(x[[xc]], "Date") && is(i[[ic]], "Date")) {`
`75`	`75`	`set(x, j=xc, value=as.double(x[[xc]]))`
`76`	`76`	`set(i, j=ic, value=as.double(i[[ic]]))`
`77`	`77`	`if (verbose) catf("%s and %s are both Dates. R does not guarentee a type for Date internally, hence, coercing to double.\n", iname, xname)`