Add new wrapper functions

r/R/filesystem.R

@@ -683,3 +683,54 @@ read_file_utf8 <- function(file) {
   Encoding(res) <- "UTF-8"
   res
 }
+
+#' @export
+s3_ls <- function(bucket, path, ...){
+  bucket$ls(path, ...)
+}
+
+#' @export
+s3_dir_create <- function(bucket, path, recursive = TRUE){
+  bucket$CreateDir(path, recursive = recursive)
+}
+
+#' @export
+s3_dir_delete <- function(bucket, path){
+  bucket$DeleteDir(path)
+}
+
+#' @export
+s3_file_copy <- function(bucket, src, dest){
+  bucket$CopyFile(src, dest)
+}
+
+#' @export
+s3_output_stream <- function(bucket, path, append = FALSE){
+  if (append) {
+    bucket$OpenAppendStream(path)
+  } else {
+    bucket$OpenOutputStream(path)
+  }
+}
+
+# TODO: create method close.OutputStream (or whatever object returned from bucket$OpenAppendStream)
+
+#' @export
+s3_file_delete <- function(bucket, paths){
+  bucket$DeleteFiles(paths)
+}
+
+#' @export
+s3_file_info <- function(bucket, paths){
+  bucket$GetFileInfo(paths)
+}
+
+#' @export
+s3_path <- function(bucket, path){
+  bucket$path(path)
+}
+
+#' @export
+s3_file_move <- function(bucket, src, dest){
+  bucket$Move(src, dest)
+}