R/utils-pair.R

In GiuseppeTT/RiskParityBrazil: An analysis of risk parity applied to the Brazilian stock market

pair <- function(
    x,
    y,
    joiner = ""
) {
    x <-
        x %>%
        as.character()

    y <-
        y %>%
        as.character()

    list(x, y) %>%
        purrr::pmap(c) %>%
        purrr::map(sort) %>%
        purrr::map_chr(stringr::str_c, collapse = joiner) %>%
        return()
}