new col drop

abfleishman · Jun 5, 2018 · 10633be · 10633be
1 parent fbc7cd5
commit 10633be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MakeTrip.R b/R/MakeTrip.R
@@ -79,5 +79,5 @@ MakeTrip<-function(tracks,
   # if not on a trip (within distance to colony threshold) than give a 0
   dataOut$TripNum[is.na(dataOut$TripNum)]<-0
 
-  return(dplyr::select_(dataOut,-"InColony"))
+    return(dataOut[ , -which(names(dataOut) =="InColony")])
 }