Merge pull request #565 from andyquinterom/fix_NA

renkun-ken · web-flow · commit 8d0f874a59ec · 2022-07-27T08:32:52.000+08:00
fix NA introduced into position
diff --git a/R/utils.R b/R/utils.R
@@ -424,7 +424,7 @@ code_point_to_unit <- function(line, pts) {
     n <- length(offsets)
     m <- offsets[n]
     result[pts >= n] <- m
-    result[is.infinite(pts)] <- m
+    result[!is.finite(pts)] <- m
     result
 }
 

Original file line number	Diff line number	Diff line change
`@@ -424,7 +424,7 @@ code_point_to_unit <- function(line, pts) {`
`424`	`424`	`n <- length(offsets)`
`425`	`425`	`m <- offsets[n]`
`426`	`426`	`result[pts >= n] <- m`
`427`		`- result[is.infinite(pts)] <- m`
	`427`	`+ result[!is.finite(pts)] <- m`
`428`	`428`	`result`
`429`	`429`	`}`
`430`	`430`