R/print_functions.R

In BenjaminPhillips22/sillyr: Has a few silly function

#' @importFrom magrittr %>%
#' @export
magrittr::`%>%`

#' silly_print
#'
#' @param arg1 a string
#' @return an updated string with 'silly' at the start
#' @examples
#' silly_print('hello')
#' ## 'silly - hello'
#' @export
silly_print <- function(arg1, ...){
    arg1 %>%
        paste('silly -', .) %>%
        print(.)
}


#' print_silly
#'
#' @param arg1 a string
#' @return an updated string with 'silly' on the end
#' @examples
#' print_silly('hello')
#' ## 'hello - silly'
#' @export
print_silly <- function(arg1, ...){
    arg1 %>%
        paste(., '- silly') %>%
        print(.)
}