#' List Files
#'
#' List files in remote folder.
#'
#' @param url The duck URL for a remote directory.
#' @param user The username or access key. Define with [duck_user()].
#' @param ... Additional arguments passed to duck.
#' @return Character vector of file names.
#' @examples
#' duck_list("s3:/publicaccountability/csv/")
#' @importFrom fs as_fs_path
#' @export
duck_list <- function(url, user = Sys.getenv("S3_USER"), ...) {
dots <- list(...)
arg_list <- paste("--list", url)
arg_user <- paste("--user", user)
fs::as_fs_path(system2(
command = "duck",
args = c("--quiet", arg_list, arg_user, dots),
stdout = TRUE,
stderr = "",
))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.