# Upload a directory to a file storage
folder <- withr::local_tempdir("test", .local_envir = .GlobalEnv)
cnt <- connector_fs(folder)
# Create a source directory
dir.create(file.path(folder, "src_dir"))
writeLines(
"This is a test file.",
file.path(folder, "src_dir", "test.txt")
)
# Upload the directory
cnt |>
upload_directory_cnt(
src = file.path(folder, "src_dir"),
dest = "uploaded_dir"
)
Run the code above in your browser using DataLab