Closed matiasandina closed 4 years ago
This was written when optic flow had only one value (the total_flow). The new way has more columns, so
flow_df <- purrr::map(flow_files,
function(x)
read_delim(x,
delim=",",
col_names = c("datetime", "movement", "x", "y")))
names(flow_df) <- basename(flow_files)
flow_df <- flow_df %>% bind_rows(.id="filename")
# clean
flow_df <- flow_df %>%
mutate(x = as.numeric(str_extract(x, "[0-9]+")),
y = as.numeric(str_extract(y, "[0-9]+")))
Current function is