defensive drop=FALSE in create.bins

DistanceDevelopment · May 13, 2017 · f5bd2e1 · f5bd2e1
1 parent 52eb627
commit f5bd2e1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/create.bins.R b/R/create.bins.R
@@ -25,7 +25,7 @@ create.bins <- function(data,cutpoints){
   if(!all(in.cp.ind)){
     warning("Some distances were outside bins and have been removed.")
   }
-  data <- data[in.cp.ind,]
+  data <- data[in.cp.ind, , drop=FALSE]
 
   # pull out the distances (removing the NAs for now)
   na.ind <- is.na(data$distance)