Make 'restorable' opt-out instead of opt-in

This commit is contained in:
Winston Chang
2016-06-13 14:24:21 -05:00
parent e4dad82dde
commit fa80fd64da

View File

@@ -293,7 +293,7 @@ restoreInput <- function(id, default) {
# when restoring a value.
force(default)
if (!isTRUE(getShinyOption("restorable")) || !hasCurrentRestoreContext())
if (identical(getShinyOption("restorable"), FALSE) || !hasCurrentRestoreContext())
return(default)
oldInputs <- getCurrentRestoreContext()$input