rewrite fixations_to_timepoints (fka binifyFixations) using join_by

[kalenkovich]

Note: fixations_to_timepoints isn't yet implemented at all.

t_series <- fixations %>%
  summarise(t_min = min(current_fix_start),
            t_max = max(current_fix_end)) %>%
  mutate(across(c(t_min, t_max),
                ~ floor(. / bin_size) * bin_size)) %>%
  mutate(t = list(seq(t_min, t_max, by = bin_size))) %>%
  select(t) %>%
  unnest(cols = t)

t_series %>%
  inner_join(
    fixations %>%
      mutate(across(c(current_fix_start, current_fix_end),
                    ~ floor(. / bin_size) * bin_size)),
    by = join_by(between(t, current_fix_start, current_fix_end))
  )

Update June 7 2024

The main part (speeding up by switching to a join) was done in a632aa0.

• Check the stuff from the comment below
• see a632aa0's message for how the function can be further sped up.

[kalenkovich]

Informal testing on ht_seedlings (possibly the largest dataset we have) and the join version takes less than 1 second while the orignal takes around a minute.

[kalenkovich]

Not about the optimization but just to have this checklist somewhere:

• enforce x, y, t_start, t_end, all numeric in the input,
• output x, y, and t, nothing else (mainly, no timeBin).