R/tag_check.R

In ntyndall/translink.bot: Translink Slack Bot

#' @title Tag Check
#' 
#' @export


tag_check <- function(allFavs) {
  
  # Favourite names
  favNames <- allFavs %>% 
    strsplit(":") %>%
    purrr::map(3) %>% 
    purrr::flatten_chr()
  
  return(favNames)
}