Update l definition for id

Robinlovelace · Dec 10, 2015 · 72172e4 · 72172e4
1 parent 91a2fc7
commit 72172e4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/od-funs.R b/R/od-funs.R
@@ -139,9 +139,9 @@ line2points <- function(l){
 #' lines(routes_slow[n,], col = "green")
 
 line2route <- function(ldf, ...){
+  l <- ldf # save spatial data and row numbers
   if(class(ldf) == "SpatialLinesDataFrame"){
-    l <- ldf # save spatial data and row numbers
-    ldf <- line2df(ldf)
+    ldf <- line2df(l)
   }
 
   # Save the first line - catch it if it's an error