diff --git a/R/subset.station.R b/R/subset.station.R index b96654a6..8e4303c4 100644 --- a/R/subset.station.R +++ b/R/subset.station.R @@ -289,7 +289,6 @@ station.subset <- function(x,it=NULL,is=NULL,verbose=FALSE) { if(length(sj)>0) selj <- is.element(seq(1,dim(x)[2]),sj) ## is <- sell & selx & sely & selz & selc & seli & selm & selp & selF & selj - browser() if (sum(is)==0) {warning('Returning empty station set'); return(NULL)} ## ## Need to make sure both it and is are same type: here integers for index rather than logical