#' A function about emus
#'
#' What bird should you hug today? Find out here.
#' @param love Do you love emus? Defaults to TRUE
#' @keywords bird, flight
#' @export
#' @examples
#' emu_function()
emu_function <- function(love = T){
if (love == T) {
print ("Give a flightless bird a hug today.")
}
else {
print ("Hug a raptor. Wear protective gloves.")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.