#' Finds Local path
#'
#' Queries working directory and returns the base user dir.
#'
#' @name this
#' @param path Optional string input.
#' @return String
#' @importFrom magrittr %>%
#' @export
this <- function(path = NULL) {
getwd() %>%
stringr::str_split("/") %>%
.[[1]] %>%
.[2:3] %>%
stringr::str_c(collapse = "/") %>%
paste0("/", .,"/Dropbox (Trendlock)/TrendLock Team Folder", path)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.