Fixes Error in names(out) <- c(label, Alig.N)

r-spatial · Oct 28, 2019 · e1344a2 · e1344a2
1 parent e73b48e
commit e1344a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/twdtw_reduce_time.R b/R/twdtw_reduce_time.R
@@ -112,7 +112,7 @@
   out$to <- breaks[-1]
   out <- merge(out, aligs[, c("label", "Alig.N", "distance"),drop=FALSE], by.x = c("label", "Alig.N"), by.y = c("label", "Alig.N"), all.x = TRUE)
   out <- out[order(out$from), names(out)!="Alig.N"]
-  if(any(out$label==0)) out[out$label==0,,drop=FALSE]$label <- fill
+  if(any(out$label==0)) out[out$label==0,]$label <- fill
   return(out)
 }