R/fbind.R

In nayefahmad/foofactors3: Combine Factors Nicely

#' Bind factors nicely
#'
#' This makes nice factor combos
#'
#' @param a A factor
#' @param b A factor
#'
#' @return A factor
#' @export
#'
#' @examples
#' a <- factor(c("hi", "there"))
#' b <- factor(c("what's", "up"))
#' fbind(a, b)
fbind <- function(a, b){
    factor(c(as.character(a),
             as.character(b)))
}