Nothing
#' Get path to feather example files
#'
#' @description
#' \code{feather_example} gets the path of a specific example
#'
#' @param x example file
#' @export
#' @keywords internal
feather_example <- function(x) {
system.file("feather", x, mustWork = TRUE, package = "feather")
}
#' @description
#' \code{feather_examples} gets the path of all examples
#'
#' @export
#' @rdname feather_example
feather_examples <- function() {
path <- feather_example("")
stats::setNames(dir(path, full.names = TRUE), dir(path))
}
dim_desc <- function(x) {
paste0("[", paste0(big_mark(x), collapse = " x "), "]")
}
big_mark <- function(x, ...) {
mark <- if (identical(getOption("OutDec"), ",")) "." else ","
formatC(x, big.mark = mark, ...)
}
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.