r-lib
diff --git a/‎R/bit.R‎
Lines changed: 1 addition & 0 deletions b/‎R/bit.R‎
Lines changed: 1 addition & 0 deletions
@@ -1925,6 +1925,7 @@ sum.bit <- function(x, range=NULL, ...) {
     if (range[1] < 1L || range[2] > length(x))
       stop("illegal range")
   }
+  if (length(x) == 0L) return(0L)
   .Call(C_R_bit_sum, x, range)
 }
Original file line number	Diff line number	Diff line change
`@@ -1925,6 +1925,7 @@ sum.bit <- function(x, range=NULL, ...) {`
`1925`	`1925`	`if (range[1] < 1L \|\| range[2] > length(x))`
`1926`	`1926`	`stop("illegal range")`
`1927`	`1927`	`}`
	`1928`	`+ if (length(x) == 0L) return(0L)`
`1928`	`1929`	`.Call(C_R_bit_sum, x, range)`
`1929`	`1930`	`}`
`1930`	`1931`