fix: Only bare double to be cast to integer in pl$linear_spaces's num_samples (#1492)

eitsupi · web-flow · commit 6dbb95b29873 · 2025-08-11T11:54:05.000+09:00
diff --git a/R/functions-range-linear_space.R b/R/functions-range-linear_space.R
@@ -92,7 +92,7 @@ pl__linear_spaces <- function(
     check_dots_empty0(...)
     # Non-integer values are rejected in the Rust function but we want to allow
     # num_samples = 3 for instance (for a better user experience).
-    if (is_integerish(num_samples)) {
+    if (is_bare_double(num_samples) && is_integerish(num_samples)) {
       num_samples <- as.integer(num_samples)
     }
     closed <- arg_match0(closed, values = c("both", "left", "none", "right"))

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ pl__linear_spaces <- function(`
`92`	`92`	`check_dots_empty0(...)`
`93`	`93`	`# Non-integer values are rejected in the Rust function but we want to allow`
`94`	`94`	`# num_samples = 3 for instance (for a better user experience).`
`95`		`- if (is_integerish(num_samples)) {`
	`95`	`+ if (is_bare_double(num_samples) && is_integerish(num_samples)) {`
`96`	`96`	`num_samples <- as.integer(num_samples)`
`97`	`97`	`}`
`98`	`98`	`closed <- arg_match0(closed, values = c("both", "left", "none", "right"))`