Edit on.exit() handler

wlandau · Apr 14, 2020 · e24abf6 · e24abf6
1 parent 80ae241
commit e24abf6
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/txtq.R b/R/txtq.R
@@ -123,9 +123,11 @@ R6_txtq <- R6::R6Class(
       private$txtq_validate()
     },
     txtq_exclusive = function(code) {
-      on.exit(filelock::unlock(lock))
-      on.exit(unlink(private$lock_file), add = TRUE)
       lock <- filelock::lock(private$lock_file)
+      on.exit({
+        filelock::unlock(lock)
+        unlink(private$lock_file)
+      })
       force(code)
     },
     txtq_get_head = function() {