From ef4fa85ddeb9b86325e22111f5fc0d3ccdf6d718 Mon Sep 17 00:00:00 2001 From: wlandau Date: Mon, 23 Dec 2024 11:49:47 -0500 Subject: [PATCH] restore old code --- R/class_meta.R | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/R/class_meta.R b/R/class_meta.R index 788fce57..cc3ada5b 100644 --- a/R/class_meta.R +++ b/R/class_meta.R @@ -72,7 +72,13 @@ meta_class <- R6::R6Class( self$del_records(remove) }, hash_dep = function(name, pipeline) { - .subset2(.subset2(.subset2(self, "database"), "get_row")(name), "data") + exists <- self$exists_record(name) && + pipeline_exists_object(pipeline, name) + if_any( + exists, + self$get_record(name)$data, + "" + ) }, hash_deps = function(deps, pipeline) { @@ -80,8 +86,9 @@ meta_class <- R6::R6Class( hashes <- lapply( X = sort_chr(deps), - FUN = self$hash_dep, - pipeline = pipeline + FUN = function(name) { + .subset2(.subset2(.subset2(self, "database"), "get_row")(name), "data") + }, ) names(hashes) <- deps hashes <- unlist(hashes, use.names = TRUE)