defensive drop=FALSE in create.bins

David Lawrence Miller · David Lawrence Miller · commit f5bd2e1baee0 · 2017-05-13T18:26:53.000+02:00
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)

Original file line number	Diff line number	Diff line change
`@@ -25,7 +25,7 @@ create.bins <- function(data,cutpoints){`
`25`	`25`	`if(!all(in.cp.ind)){`
`26`	`26`	`warning("Some distances were outside bins and have been removed.")`
`27`	`27`	`}`
`28`		`- data <- data[in.cp.ind,]`
	`28`	`+ data <- data[in.cp.ind, , drop=FALSE]`
`29`	`29`
`30`	`30`	`# pull out the distances (removing the NAs for now)`
`31`	`31`	`na.ind <- is.na(data$distance)`