#' Quick Path
#'
#' This function is a wrapper for \code{\link[base]{file.path}} and
#' \code{\link[base]{getwd}}.
#'
#' @param \ldots The directory (or nested directories) within the working
#' directory.
#' @return Returns a path.
#' @export
#' @seealso \code{\link[base]{file.path}},
#' \code{\link[base]{getwd}}
#' @examples
#' QP()
#' QP("PRESENTATION")
#' QP("PRESENTATION/figure")
#' QP("PRESENTATION", "figure")
QP <-
function(...) {
file.path(getwd(), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.