#' Get the swirl name for the current user
#'
#' @keywords swirl
#' @export
get_swirl_name<-function(){
rstudioname<-system("whoami", intern=TRUE)
swirlname<-gsub(".", "", rstudioname, fixed=TRUE)
swirlname
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.