R/utils.R

In daranzolin/ggtextparallels: Create text parallels with ggplot2

reformat_index <- function(x) {
  parts <- stringr::str_split(x, "[.-]")[[1]]
  ch <- parts[1]
  start <- paste(ch, parts[2], sep = ".")
  fin <- paste(ch, parts[3], sep = ".")
  paste(start, fin, sep = "-")
}

get_text_url <- function(text_urn, text_index) {
  BASE_URL <- "http://cts.perseids.org/api/cts"
  httr::modify_url(BASE_URL,
                   query = list(
                     request = "GetPassage",
                     urn = paste(text_urn, text_index, sep = ":"
                                 )
                     )
                   )
}

extract_text <- function(text_url) {

  res <- httr::GET(text_url,
                   httr::user_agent(
                     "ggtextparllels - https://github.com/daranzolin/ggtextparallels")
  )
  if (res$status_code == 500) stop("Nothing available for that URN.")
  httr::stop_for_status(res)
  r_list <- res %>%
    httr::content("raw") %>%
    xml2::read_xml() %>%
    xml2::as_list()

  purrr::map(r_list$reply$passage$TEI$text$body$div,
                     ~ paste(unlist(.), collapse = " ")) %>%
    stringr::str_replace_all("\\s+", " ") %>%
    stringr::str_replace_all("\\*", "") %>%
    stringr::str_trim()
}

split_every <- function(x, n, pattern, collapse = pattern, ...) {
  x_split <- strsplit(x, pattern, perl = TRUE, ...)[[1]]
  out <- character(ceiling(length(x_split) / n))
  for (i in seq_along(out)) {
    entry <- x_split[seq((i - 1) * n + 1, i * n, by = 1)]
    out[i] <- paste0(entry[!is.na(entry)], collapse = collapse)
  }
  out
}

extract_common_words <- function(df) {
  words <- df %>%
    split(.$book) %>%
    purrr::map(dplyr::pull, text) %>%
    purrr::map(stringr::str_split, " ") %>%
    purrr::modify_depth(2, purrr::discard, ~. %in% tidytext::stop_words$word) %>%
    purrr::modify_depth(2, stringr::str_replace_all, "[:punct:]", "") %>%
    purrr::map(unique) %>%
    purrr::flatten() %>%
    purrr::flatten_chr()
  words <- table(words)
  names(words[words >= 3])
}

get_first_verse_number <- function(index) {
  stringr::str_split(index, "\\.") %>%
    purrr::map(~.[[2]]) %>%
    purrr::map_chr(~stringr::str_sub(., 1, 1))
}

new_text <- function(first_verse_number, text) {
  c1 <- stringr::str_sub(text, 1, 1)
  if (c1 %in% as.character(1:9)) {
    t <- paste0(first_verse_number, text)
  } else {
    t <- paste(first_verse_number, text)
  }
  t
}

process_biblesearch_text <- function(versions, books, verses) {

  list(
    version = versions,
    book = books,
    verses = verses
  ) %>%
    purrr::pmap(rbiblesearch::biblesearch_passage) %>%
    purrr::map(setNames, "text") %>%
    dplyr::data_frame(text = .) %>%
    tidyr::unnest() %>%
    dplyr::mutate(index = verses,
                  book = books)
}