Nothing
#' @rdname downloadDirFiles
deleteRemoteObjects <- function(dir_id, local_dir = getwd()) {
box_dd <- box_dir_diff(dir_id, local_dir, load = "up", folders = TRUE)
if (is.null(box_dd))
return(NULL)
# Run through the files to delete
file_deletions <- list()
folder_deletions <- list()
# Run through the files to delete
if (nrow(box_dd$superfluous) > 0)
for (i in 1:nrow(box_dd$superfluous)) {
catif(
paste0(
"Moving files to trash (", i,"/",nrow(box_dd$superfluous),"): ",
box_dd$superfluous$name[i]
)
)
file_deletions[[i]] <- boxDeleteFile(box_dd$superfluous$id[i])
}
# An output object for files
file_deletion_success <-
unlist(
lapply(file_deletions,
function(x) httr::http_status(x)$category == "Success")
)
# Run through the folders to delete
if (nrow(box_dd$superfluous_folders) > 0)
for (i in 1:nrow(box_dd$superfluous_folders)) {
catif(
paste0(
"Moving folders to trash (", i,"/", nrow(box_dd$superfluous_folders),
"): ", box_dd$superfluous_folders$name[i]
)
)
folder_deletions[[i]] <-
boxDeleteFolder(box_dd$superfluous_folders$id[i])
}
# An output object for files
folder_deletion_success <-
unlist(
lapply(folder_deletions,
function(x) httr::http_status(x)$category == "Success")
)
# Initialize these, for the sake of error handling
successful_file_deletions <- unsuccessful_file_deletions <-
successful_folder_deletions <- unsuccessful_folder_deletions <- data.frame()
if (length(file_deletion_success) > 0) {
successful_file_deletions <-
box_dd$superfluous[ file_deletion_success]
unsuccessful_file_deletions <-
box_dd$superfluous[!file_deletion_success]
}
if (length(folder_deletion_success) > 0) {
successful_folder_deletions <-
box_dd$superfluous_folders[ folder_deletion_success,]
unsuccessful_folder_deletions <-
box_dd$superfluous_folders[!folder_deletion_success,]
}
out <-
list(
successful_remote_file_deletions = successful_file_deletions,
unsuccessful_remote_file_deletions = unsuccessful_file_deletions,
successful_remote_folder_deletions = successful_folder_deletions,
unsuccessful_remote_folder_deletions = unsuccessful_folder_deletions
)
return(out)
}
deleteLocalObjects <- function(dir_id, local_dir = getwd()) {
box_dd <- box_dir_diff(dir_id, local_dir, load = "down", folders = TRUE)
if (is.null(box_dd))
return(NULL)
# Run through the files to delete
file_deletions <- list()
folder_deletions <- list()
# Run through the files to delete
if (nrow(box_dd$superfluous) > 0)
for (i in 1:nrow(box_dd$superfluous)) {
catif(
paste0(
"Deleting local files (", i,"/",nrow(box_dd$superfluous),"): ",
box_dd$superfluous$name[i]
)
)
file_deletions[[i]] <-
unlink(
normalizePath(paste0(local_dir, "/", box_dd$superfluous$name[i])),
force = TRUE
)
}
# An output object for files
file_deletion_success <- unlist(lapply(file_deletions, function(x) x == 0))
# Run through the folders to delete
if (nrow(box_dd$superfluous_folders) > 0)
for (i in 1:nrow(box_dd$superfluous_folders)) {
catif(
paste0(
"Deleting local directories (", i,"/", nrow(box_dd$superfluous_folders),
"): ", box_dd$superfluous_folders$name[i]
)
)
folder_deletions[[i]] <-
unlink(
normalizePath(
paste0(local_dir, "/", box_dd$superfluous_folders$name[i])
),
force = TRUE, recursive = TRUE
)
}
# An output object for files
folder_deletion_success <- unlist(lapply(folder_deletions, function(x) x == 0))
# Initialize these, for the sake of error handling
successful_file_deletions <- unsuccessful_file_deletions <-
successful_folder_deletions <- unsuccessful_folder_deletions <- data.frame()
if (length(file_deletion_success) > 0) {
successful_file_deletions <-
box_dd$superfluous[ file_deletion_success,]
unsuccessful_file_deletions <-
box_dd$superfluous[!file_deletion_success,]
}
if (length(folder_deletion_success) > 0) {
successful_folder_deletions <-
box_dd$superfluous_folders[ folder_deletion_success,]
unsuccessful_folder_deletions <-
box_dd$superfluous_folders[!folder_deletion_success,]
}
out <-
list(
successful_local_file_deletions = successful_file_deletions,
unsuccessful_local_file_deletions = unsuccessful_file_deletions,
successful_local_folder_deletions = successful_folder_deletions,
unsuccessful_local_folder_deletions = unsuccessful_folder_deletions
)
return(out)
}
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.