Remove unnecessary check in unexported method

There's no need for this in an unexported method. It was added in early 2009, before R required packages to have namespaces... in late 2011. Fixes #307.
joshuaulrich · Oct 13, 2022 · 843e429 · 843e429
1 parent 7a0616c
commit 843e429
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/na.R b/R/na.R
@@ -93,7 +93,6 @@ na.replace <- function(x) {
 }
 
 na.locf.xts <- function(object, na.rm=FALSE, fromLast=FALSE, maxgap=Inf, ...) {
-    stopifnot(is.xts(object))
     maxgap <- min(maxgap, NROW(object))
     if(length(object) == 0)
       return(object)