#' cp
#'
#' copy a vector or data.frame to the clipboard
#'
#' @param .data vector or data.frame
#' @param sep character field separator string
#' @param max.size dimensions of file, eg. 200 columns by 10000 rows is 2000000
#'
#' @export
#'
cp <- function(.data, sep="|", max.size=(200*10000), ...){

  write.table(.data,
              paste0("clipboard-", format(max.size, scientific = F)),
              sep=sep,
              row.names=FALSE,
              ...
              )

}