more (potential) optimizations

ropensci · Dec 23, 2024 · 5294a3a · 5294a3a
1 parent 7541182
commit 5294a3a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/class_database.R b/R/class_database.R
@@ -108,11 +108,10 @@ database_class <- R6::R6Class(
       lookup_get(.subset2(self, "lookup"), name)
     },
     set_row = function(row) {
-      lookup_set(
-        .subset2(self, "lookup"),
-        names = as.character(.subset2(row, "name")),
-        object = as.list(row)
-      )
+      lookup <- .subset2(self, "lookup")
+      name <- as.character(.subset2(row, "name"))
+      object <- as.list(row)
+      lookup[[name]] <- object
     },
     del_rows = function(names) {
       lookup_remove(.subset2(self, "lookup"), names)

diff --git a/R/class_frames.R b/R/class_frames.R
@@ -15,7 +15,8 @@ frames_get_envir <- function(frames) {
 }
 
 frames_set_object <- function(frames, name, object) {
-  lookup_set(.subset2(frames, "targets"), name, object)
+  lookup <- .subset2(frames, "targets")
+  lookup[[name]] <- object
 }
 
 frames_clear_objects <- function(frames) {