Nothing
#' Easily access example data.
#'
#' @author Copied from `readr_example()` from the __readr__ package, by Jim
#' Hester and colleagues.
#'
#' @param path Length-1 character vector. A path to an available directory.
#'
#' @return A character string listing available directories or a length-1 string
#' giving a path to a directory.
#'
#' @examples
#' tor_example()
#'
#' tor_example("csv")
#'
#' dir(tor_example("csv"))
#' @family helpers
#' @export
tor_example <- function(path = NULL) {
if (is.null(path)) {
dir(system.file("extdata", package = "tor"))
} else {
system.file("extdata", path, package = "tor", mustWork = TRUE)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.