diff --git a/R/as_q_matrix.R b/R/as_q_matrix.R index 1894623c..9a330e1a 100644 --- a/R/as_q_matrix.R +++ b/R/as_q_matrix.R @@ -35,6 +35,7 @@ tidy.q_matrix <- function(x, gen_tbl, ...){ q_tbl <- x %>% tibble::as_tibble() %>% # add the pops data for plotting + # @TODO we should get this from the grouped tibble, not hardcode it! dplyr::mutate(id = gen_tbl$id, group = gen_tbl$population)