R/ultility_functions.R

In BillyEhrenberg/FTchartcolours: Loads And Plots FT Colour Palettes

#' A function to collapse a vector into a character string.
#'
#' This function is a wrapper around the paste
#' @param array a vector
#' @param sep what to interpace the array elements with, defualts to the or operator |
#' @export
#' @examples
#' myCollapse()

myCollapse <- function(array, sep = '|'){
  paste(array, collapse = sep)
}

#' Converts a three character hexcode, eg. #FFF to its six-character equivilent
#'
#' @param hex a websafe hexcode, starting with #
#' @export
#' @examples
#' hex_three_to_hex_six()



hex_three_to_hex_six <- function(hex){


  if(nchar(hex) == 4){

    res <- seq(2,nchar(hex),1) %>%
      purrr::map_chr(~{
        substr(hex,.x,.x) %>%
          rep(2) %>%
          myCollapse('')
      }) %>%
      myCollapse('') %>%
      paste0('#',.)

    # print(res)


  } else {

    res <- hex

  }

  res

}