R/ds_delete_datastore.R

In bernhard-da/datastore: Creates a datastore which can contain versioned datasets

#' ds_delete_datastore
#'
#' deletes a datastore and all files within it
#'
#' @param ds path to datastore
#' @return \code{NULL}
#' @export
#'
#' @examples
#' ## not yet
ds_delete_datastore <- function(ds) {
  ds_isvalid(ds)
  res <- unlink(ds, recursive = TRUE)
  if (res == 0) {
    message(paste("The datastore located at", shQuote(ds), "was deleted!"))
  } else {
    warning(paste("The datastore located at", shQuote(ds), "could not be deleted!"))
  }
  return(invisible(NULL))
}