Fix #1391

ropensci · Dec 4, 2024 · 50b8b2e · 50b8b2e
1 parent f872e3a
commit 50b8b2e
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -188,6 +188,8 @@ S3method(store_read_path,tar_torch)
 S3method(store_read_path,tar_url)
 S3method(store_row_path,default)
 S3method(store_row_path,tar_external)
+S3method(store_row_path,tar_repository_cas)
+S3method(store_row_path,tar_repository_cas_file)
 S3method(store_sync_file_meta,default)
 S3method(store_sync_file_meta,tar_cloud)
 S3method(store_sync_file_meta,tar_url)

diff --git a/NEWS.md b/NEWS.md
@@ -5,6 +5,7 @@
 * Allow branch references to contain multi-element `path` vectors with cloud metadata (#1382, @n8layman).
 * Avoid partial matches in internal code (#1384, @olivroy).
 * Add error handling around calls to `ps::ps_disk_partitions()` and `ps::ps_fs_mount_point()`.
+* Do not store `_targets/objects/` paths in metadata for CAS repositories (#1391).
 
 ## Compatibility
 

diff --git a/R/class_store_repository_cas.R b/R/class_store_repository_cas.R
@@ -14,6 +14,11 @@ store_class_repository.repository_cas <- function(repository, store, format) {
 store_assert_repository_setting.repository_cas <- function(repository) {
 }
 
+#' @export
+store_row_path.tar_repository_cas <- function(store, file) {
+  NA_character_
+}
+
 #' @export
 store_hash_early.tar_repository_cas <- function(store, file) {
 }

diff --git a/R/class_store_repository_cas_file.R b/R/class_store_repository_cas_file.R
@@ -1,3 +1,6 @@
+#' @export
+store_row_path.tar_repository_cas_file <- store_row_path.tar_external
+
 #' @export
 store_hash_early.tar_repository_cas_file <- function(store, file) {
   store_hash_early.tar_store_file(store, file)