R/comma_collapse.R

In mikestoller/ctuDM: Functions for DM tasks

#' @name comma_collapse
#' @export comma_collapse
#' @title Collapses input (as rows) from clipboard with comma sign and adds optional square brackets.
#'
#' @description This function gets rows from the clipboard and outputs the rows (with optional square brackets) connected by plus signs.
#'
#' @param brackets TRUE by default. If TRUE, inserts square brackets around each row. If FALSE, does not insert brackets.

#' @return One cell with rows collapsed by comma sign.

#' @author Michael Stoller <mstoller84@gmail.com> <michael.stoller@ctu.unibe.ch>
#'
#' @examples
#' \dontrun{
#' #Run function without square brackets
#' comma_collapse(brackets = FALSE)
#' }
#' @importFrom utils readClipboard
#' @importFrom utils writeClipboard
#'

comma_collapse <- function(brackets=TRUE){

  x <- readClipboard()

  if (brackets){

    y <- paste0("[",x,"]",collapse=",")


  } else{
    y <- paste0(" ",x," ",collapse=",")
  }

  writeClipboard(y)
}