| collapse_span_inserts(inserts) | collapse_span_inserts(inserts) | ||||
| } else { | } else { | ||||
| inserts %>% | inserts %>% | ||||
| tidyr::nest(-.data$pass) %>% | |||||
| mutate(data = purrr::map(.data$data, collapse_span_inserts)) %>% | |||||
| tidyr::unnest() %>% | |||||
| tidyr::nest(spans = -.data$pass) %>% | |||||
| mutate(spans = purrr::map(.data$spans, collapse_span_inserts)) %>% | |||||
| tidyr::unnest(.data$spans) %>% | |||||
| group_by(.data$loc, .data$type) %>% | group_by(.data$loc, .data$type) %>% | ||||
| summarize(insert = paste(.data$insert, collapse = "")) %>% | summarize(insert = paste(.data$insert, collapse = "")) %>% | ||||
| dplyr::ungroup() | dplyr::ungroup() |