tweaks

kevinushey · Aug 20, 2024 · ef65d00 · ef65d00
1 parent c235aba
commit ef65d00
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/dotify.R b/R/dotify.R
@@ -32,11 +32,15 @@ dotify <- function() {
 
   # tell codetools to accept our code's handlers
   # TODO: ask Luke nicely to allow us to do this
+  if (.BaseNamespaceEnv$bindingIsLocked("isUtilsVar", env = codetools)) {
+    .BaseNamespaceEnv$unlockBinding("isUtilsVar", env = codetools)
+    on.exit(.BaseNamespaceEnv$lockBinding("isUtilsVar", env = codetools), add = TRUE)
+  }
+
+  # replace the binding
   hack <- function(v, env) TRUE
   environment(hack) <- codetools
-  .BaseNamespaceEnv$unlockBinding("isUtilsVar", env = codetools)
   assign("isUtilsVar", hack, envir = codetools)
-  .BaseNamespaceEnv$lockBinding("isUtilsVar", env = codetools)
 
   # add our handler for subset-assignment
   handler <- handlers$`[<-` %||% function(v, w) {}