give users the key to unlock opts_current in the error message (#1798)

yihui · Sep 12, 2023 · 768db6f · 768db6f
1 parent 8496da0
commit 768db6f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/defaults.R b/R/defaults.R
@@ -22,7 +22,10 @@ new_defaults = function(value = list()) {
   set2 = function(values) {
     old = get(names(values), drop = FALSE)
     if (length(values)) {
-      if (locked) stop('The object is read-only and cannot be modified.')
+      if (locked) stop(
+        'The object is read-only and cannot be modified. If you have to modify it ',
+        'for a legitimate reason, call the method $lock(FALSE) on the object before $set().'
+      )
       defaults <<- merge(values)
     }
     invisible(old)