From 84788b78228f2402ff15125d0c22fbcc782f24d0 Mon Sep 17 00:00:00 2001 From: wlandau Date: Mon, 23 Dec 2024 12:10:45 -0500 Subject: [PATCH] avoid creating full records in class_outdated --- R/class_outdated.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/R/class_outdated.R b/R/class_outdated.R index c009ead4..f2e996c5 100644 --- a/R/class_outdated.R +++ b/R/class_outdated.R @@ -98,9 +98,10 @@ outdated_class <- R6::R6Class( counter_exists_name(self$outdated, name) }, reset_hash = function(name) { - record <- self$meta$get_record(name) - record$data <- NA_character_ - self$meta$set_record(record) + database <- .subset2(.subset2(self, "meta"), "database") + row <- database$get_row(name) + row$data <- NA_character_ + database$set_row(row) }, reset_junction = function(target) { if (!is.null(target$junction)) {