#' Returns the path to folder of the current R-script
#'
#' Returns the current path to the folder, where the current R-script is stored.
#' @return Returns the current path as a string.
#' @author Dennis Freuer
#' @export
#'
current_path <- function(){ return(dirname(rstudioapi::getSourceEditorContext()$path)) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.