1 измененных файлов: 1 добавлений и 0 удалений
+ 1
- 0
R/regex.R
Просмотреть файл
| expand_matches <- function(m) { | expand_matches <- function(m) { | ||||
| if (m[1] == -1) return(NULL) | if (m[1] == -1) return(NULL) | ||||
| m_length <- attr(m, "match.length") | m_length <- attr(m, "match.length") | ||||
| if (identical(as.vector(m[[1]]), 1L) && m_length == 0) return(NULL) | |||||
| x <- purrr::map2(m, m_length, ~ c(.x, .x + .y)) | x <- purrr::map2(m, m_length, ~ c(.x, .x + .y)) | ||||
| x <- as.data.frame(do.call(rbind, x)) | x <- as.data.frame(do.call(rbind, x)) | ||||
| names(x) <- c("start", "end") | names(x) <- c("start", "end") |
Загрузка…