R/collapse_functions.R

In RemiMahmoud/helper.functions: A package with a bunch of useful functions

#' collapse a vector with a sum or a string depending on vector type
#' collapse_sum
#'
#' @param x a numeric or a character vector
#' @param collapse_character character to put in the collapse argument of paste function
#'
#' @return a double equals to the sum of x or a character made by collapsing  unique characters of x
#' @export
#' @examples
#' collapse_sum(c(3,2,2))
#' collapse_sum(c("a", "a", "b"))
#'
collapse_sum <- function(x, collapse_character = "_")
{ifelse(is.numeric(x), sum(x), paste(unique(x), collapse=collapse_character))}


#' collapse_unique
#'
#' @param x a numeric or a character vector
#' @param collapse_character character to put in the collapse argument of paste function
#'
#' @return a double equals to the sum of unique values of x or a character made by collapsing unique characters of x
#' @export
#' @examples
#' collapse_unique(c(3,2,2))
#' collapse_unique(c("a", "a", "b"))
#'
collapse_unique <- function(x, collapse_character = "_")
  {ifelse(is.numeric(x), sum(unique(x)), paste(unique(x), collapse=collapse_character))}