#' Template
#'
#' @param num A number to learn about.
#' @param type The category in which to learn.
#'
#' @return The a fact about \code{num} in \code{type} category.
#' @examples
#' template(42, "math")
#'
#' @import dplyr
#' @importFrom magrittr "%>%"
#' @import stringr
#' @import httr
#'
#' @export
template <- function(num, type) {
out <- stringr::str_c("http://numbersapi.com/", num, "/", type) %>%
httr::GET() %>%
httr::content()
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.