#' Makes pwd an alias for getwd()
#'
#' @keywords pwd
#' @export
pwd <- function(){
base::getwd()
}
#' Makes len an alias for length()
#'
#' @keywords length
#' @export
len <- function(x){
base::length(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.