R/list.R

In kiernann/duckr: Manage Remote Files with Cyberduck

#' 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 = "",
  ))
}