#' computername
#' @description \code{computername}
#' Returns current computername.
#' @return character
#' @export computername
#'
#'
computername <- function(){
name <- as.character(Sys.info()["nodename"])
return(name)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.