#' Who is excd?
#'
#' This function takes you to excd.org to let you explore all the great research they are doing!
#' @keywords excd
#' @export
#' @examples
#' excdr::who_are()
who_are <- function(){
os = .Platform$OS.type
if(os == "unix")
system("open http://www.excd.org")
else
system("start http://www.excd.org")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.