Case where merge_samples2() fails on creating new sample data

[mikemc]

grp <- ps.s %>% sample_data %>% ps_tibble %>% 
  # transmute(specimen_id:extraction_protocol:center_id) %>%
  transmute(specimen_id:extraction_protocol:center_id) %>%
  pull(1)
merge_samples2(ps.s, grp)
#> Error: Can't combine `1:1:S1` <date> and `25:1:S1` <double>.
#> Run `rlang::last_error()` to see where the error occurred.

The error is occurring in the call to merge_groups() and the error suggests it has to do with the date columns

[mikemc]

Here is a minimal reproducible example of the bug

group <- c(1,1,2,2,3,3)
dates <- c(NA, NA, "2020-01-01", "2020-01-01", "2020-01-02", "2020-01-03") %>%
  lubridate::as_date()
speedyseq:::merge_groups(
  dates,
  group,
  unique_or_na
)
#> Error: Can't combine `1` <date> and `3` <double>.
#> Run `rlang::last_error()` to see where the error occurred.

[mikemc]

Strangely, this only seems to create an error in merge_samples2() when group is a vector rather than the name of a column in the sample data