#' @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(.)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.