R/collardb_delete.R

In kissmygritts/collardb: A database interface and utilities for managing GPS telemetry data

#' Delete collardb
#'
#' @param dirpath character
#' @param force boolean
#'
#' @return null
#' @export
#'
#' @examples
#' \donttest{
#' delete_collardb(force = T)
#' }

collardb_delete <- function (dirpath = '~/.collardb', force = FALSE) {
  if (force) {
    fs::dir_delete(dirpath)
  } else {
    warning('you must explicitly force deletion for safety')
  }
}