Merge pull request #161 from amoeba/spaces-cran-fixes

Spaces cran fixes

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)

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)

R/spaces_object_copy.R

@@ -47,5 +47,4 @@ spaces_object_copy <- function(from_object,
                       secret = spaces_secret,
                       base_url = spaces_base,
                       ...)
-
 }

R/spaces_object_delete.R

@@ -1,13 +1,15 @@
 #' 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
 #' @param ... Additional argument passed to \code{\link[aws.s3]{delete_object}}
 #'
 #' @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,
                         ...)
-
 }

R/spaces_object_put.R

@@ -49,5 +49,4 @@ spaces_object_put <- function(file,
                      secret = spaces_secret,
                      base_url = spaces_base,
                      ...)
-
 }