Return NULL for same versions, and don't store

R/board_folder.R

@@ -71,16 +71,16 @@ pin_delete.pins_board_folder <- function(board, names, ...) {
 
 #' @export
 pin_store.pins_board_folder <- function(board, name, paths, metadata,
-                                              versioned = NULL, ...) {
+                                        versioned = NULL, ...) {
   check_pin_name(name)
   version <- version_setup(board, name, version_name(metadata), versioned = versioned)
-
-  version_dir <- fs::path(board$path, name, version)
-  fs::dir_create(version_dir)
-  write_meta(metadata, version_dir)
-  out_paths <- fs::file_copy(paths, version_dir, overwrite = TRUE)
-  fs::file_chmod(out_paths, "u=r")
-
+  if (!is.null(version)) {
+    version_dir <- fs::path(board$path, name, version)
+    fs::dir_create(version_dir)
+    write_meta(metadata, version_dir)
+    out_paths <- fs::file_copy(paths, version_dir, overwrite = TRUE)
+    fs::file_chmod(out_paths, "u=r")
+  }
   name
 }
 

R/pin_versions.R

@@ -160,17 +160,13 @@ version_from_path <- function(x) {
   out
 }
 
-version_setup <- function(board, name, new_version, versioned = NULL, call = caller_env()) {
+version_setup <- function(board, name, new_version, versioned = NULL) {
   if (pin_exists(board, name)) {
     versions <- pin_versions(board, name)
     old_version <- versions$version[[1]]
     n_versions <- nrow(versions)
     if (old_version == new_version) {
-      cli::cli_abort(c(
-        "The new version {.val {new_version}} is the same as the most recent version.",
-        i = "Did you try to create a new version with the same timestamp as the last version?"
-      ),
-      call = call)
+      return(NULL)
     }
   } else {
     n_versions <- 0