diff --git a/NAMESPACE b/NAMESPACE index af4973a..4b73164 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -189,12 +189,10 @@ export(sizes) export(snapshot) export(snapshot_delete) export(snapshots) -export(space_create) export(spaces) export(spaces_acl_get) export(spaces_acl_put) export(spaces_object_copy) -export(spaces_object_delete) export(spaces_object_get) export(spaces_object_head) export(spaces_object_put) diff --git a/R/spaces.R b/R/spaces.R index b415e38..ec29b8f 100644 --- a/R/spaces.R +++ b/R/spaces.R @@ -151,10 +151,15 @@ space_files <- function(space_info) { } #' Create a new space +#' +#' This function is not implemented yet. A working implementation is planned in +#' future releases of this package. +#' #' @importFrom aws.s3 put_bucket -#' @export #' @rdname spaces space_create <- function(name, spaces_key = NULL, spaces_secret = NULL, ...) { + stop("This function is not implemented yet.", call. = FALSE) + if (is.null(name)) stop("Please specify the space name") spaces_key <- check_space_access(spaces_key) spaces_secret <- check_space_secret(spaces_secret) diff --git a/R/spaces_object_copy.R b/R/spaces_object_copy.R index 7b6d9c2..ea5e742 100644 --- a/R/spaces_object_copy.R +++ b/R/spaces_object_copy.R @@ -47,5 +47,4 @@ spaces_object_copy <- function(from_object, secret = spaces_secret, base_url = spaces_base, ...) - } diff --git a/R/spaces_object_delete.R b/R/spaces_object_delete.R index b024a3a..207ea28 100644 --- a/R/spaces_object_delete.R +++ b/R/spaces_object_delete.R @@ -1,5 +1,8 @@ #' Delete an Object from a Space #' +#' This function is not implemented yet. A working implementation is planned in +#' future releases of this package. +#' #' @param object (character) The Object to delete #' @param space (character) The Space to delete the Object from #' @template spaces_args @@ -7,7 +10,6 @@ #' #' @return \code{TRUE} if successful, otherwise an object of class aws_error #' details if not. -#' @export #' #' @references \url{https://developers.digitalocean.com/documentation/ #' spaces/#delete-object} @@ -26,6 +28,8 @@ spaces_object_delete <- function(object, spaces_key = NULL, spaces_secret = NULL, ...) { + stop("This function is not implemented yet.", call. = FALSE) + spaces_key <- check_space_access(spaces_key) spaces_secret <- check_space_secret(spaces_secret) @@ -36,5 +40,4 @@ spaces_object_delete <- function(object, secret = spaces_secret, base_url = spaces_base, ...) - } diff --git a/R/spaces_object_put.R b/R/spaces_object_put.R index 430ab45..b012257 100644 --- a/R/spaces_object_put.R +++ b/R/spaces_object_put.R @@ -49,5 +49,4 @@ spaces_object_put <- function(file, secret = spaces_secret, base_url = spaces_base, ...) - } diff --git a/man/spaces.Rd b/man/spaces.Rd index 89ed797..116a124 100644 --- a/man/spaces.Rd +++ b/man/spaces.Rd @@ -39,7 +39,8 @@ from the \code{aws.s3} package.} \item{space_create}{Create a new space} } -Create a new space +This function is not implemented yet. A working implementation is planned in +future releases of this package. } \examples{ \dontrun{ diff --git a/man/spaces_object_delete.Rd b/man/spaces_object_delete.Rd index a52609d..45749e2 100644 --- a/man/spaces_object_delete.Rd +++ b/man/spaces_object_delete.Rd @@ -27,7 +27,8 @@ variable \code{DO_SPACES_SECRET_KEY}.} details if not. } \description{ -Delete an Object from a Space +This function is not implemented yet. A working implementation is planned in +future releases of this package. } \examples{ \dontrun{