address <- url("http://www.trutschnig.net/RTR2015.RData")
load(address)
"RTR2015"
# MySection ---------------------------------------------------------------
#' @section A Custom Section:
#'
#' Text accompanying the custom section.
#' @export
#' @param id ID to retrieve
devtools::load_data()
foo <- function(id) {
return(which(RTR2015$id == id))
}
foo(1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.