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)