Catch error in add_path because of factor/character confusion

2024-05-02 19:42:22 +02:00 · 2024-05-02 19:42:22 +02:00 · c3ae475d71
commit c3ae475d71
parent ef56ab792c
1 changed files with 3 additions and 0 deletions
--- a/R/add_path.R
+++ b/R/add_path.R
@ -217,6 +217,9 @@ add_path_subdata <- function(subdata, cutoff) {

  subdata_path <- lapply(subdata_moves, check_moves, cutoff = cutoff)
  subdata <- dplyr::bind_rows(subdata_path)
+  if (nrow(subdata) != 0) {
+    subdata$path <- as.factor(subdata$path)
+  }
  subdata
 }