rename R-side argument for readability?

Author: MichaelChirico

R/bmerge.R

@@ -92,7 +92,7 @@ bmerge = function(i, x, icols, xcols, roll, rollends, nomatch, mult, ops, verbos
     if (xclass=="integer64" || iclass=="integer64") {
       nm = c(iname, xname)
       if (xclass=="integer64") { w=i; wc=ic; wclass=iclass; } else { w=x; wc=xc; wclass=xclass; nm=rev(nm) }  # w is which to coerce
-      if (wclass=="integer" || (wclass=="double" && !isReallyReal(w[[wc]], i64=TRUE))) {
+      if (wclass=="integer" || (wclass=="double" && !isReallyReal(w[[wc]], vs='i64'))) {
         if (verbose) catf("Coercing %s column %s%s to type integer64 to match type of %s.\n", wclass, nm[1L], if (wclass=="double") " (which has integer64 representation, e.g. no fractions)" else "", nm[2L])
         set(w, j=wc, value=bit64::as.integer64(w[[wc]]))
       } else stopf("Incompatible join types: %s is type integer64 but %s is type double and cannot be coerced to integer64 (e.g. has fractions)", nm[2L], nm[1L])

R/wrappers.R

@@ -18,6 +18,6 @@ colnamesInt = function(x, cols, check_dups=FALSE, skip_absent=FALSE) .Call(Ccoln
 testMsg = function(status=0L, nx=2L, nk=2L) .Call(CtestMsgR, as.integer(status)[1L], as.integer(nx)[1L], as.integer(nk)[1L])
 
 isRealReallyInt = function(x) .Call(CisRealReallyIntR, x)
-isReallyReal = function(x, i64=FALSE) .Call(CisReallyReal, x, i64)
+isReallyReal = function(x, vs='i32') .Call(CisReallyReal, x, identical(vs, 'i64'))
 
 coerceAs = function(x, as, copy=TRUE) .Call(CcoerceAs, x, as, copy)