fix attempt 2

stla · stla · commit f9875abfdc1b · 2024-08-28T02:49:23.000+02:00
diff --git a/R/internal.R b/R/internal.R
@@ -98,7 +98,7 @@ isNonnegativeInteger <- function(n) {
 #' @importFrom gmp is.bigq
 #' @noRd
 isFraction <- function(x) {
-  if(!is.vector(x) || length(x) != 1L || is.na(x)) {
+  if((!is.vector(x) && !is.bigq(x)) || length(x) != 1L || is.na(x)) {
     return(FALSE)
   }
   if(is.integer(x)) {

Original file line number	Diff line number	Diff line change
`@@ -98,7 +98,7 @@ isNonnegativeInteger <- function(n) {`
`98`	`98`	`#' @importFrom gmp is.bigq`
`99`	`99`	`#' @noRd`
`100`	`100`	`isFraction <- function(x) {`
`101`		`- if(!is.vector(x) \|\| length(x) != 1L \|\| is.na(x)) {`
	`101`	`+ if((!is.vector(x) && !is.bigq(x)) \|\| length(x) != 1L \|\| is.na(x)) {`
`102`	`102`	`return(FALSE)`
`103`	`103`	`}`
`104`	`104`	`if(is.integer(x)) {`