R/make_PlainTypewriteMessage.R

In meerapatelmd/secretary: secretary Package

#' @title Make a PlainTypewriteMessage
#' @description
#' This function fills the Plain slot of the TypewriteMessage object from the input
#' @seealso
#'  \code{\link[rlang]{list2}}
#' @rdname make_PlainTypewriteMessage
#' @export
#' @importFrom magrittr %>%
#' @importFrom rlang list2
#' @noRd

make_PlainTypewriteMessage <-
    function(...) {
        concatenated_words <-
                rlang::list2(...) %>%
                unlist() %>%
                paste(collapse = " ")
        TypewriteMessage_obj <- new("TypewriteMessage")
        TypewriteMessage_obj@Plain <- concatenated_words
        return(TypewriteMessage_obj)
    }