R/macron_vowel.R

In joevalalipin/reohelpers: Making te reo easier to use in R

#' @import dplyr
#' @import stringr
#' @import magrittr

library(dplyr)
library(stringr)
library(magrittr)

load("data/unicodes.rdata")

#' @export
macron_vowel <- function(string) {
  data.frame(str_split(string, ""), stringsAsFactors = FALSE) %>%
    rename(vowel_ascii = 1) %>%
    left_join(unicodes, by = "vowel_ascii") %>%
    mutate(vowel = ifelse(is.na(vowel), vowel_ascii, vowel)) %>%
    pull(vowel) %>%
    paste0(collapse = "")
}