github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-06 20:55:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Change '_state_id' to '__state_id__'

Browse Source
This commit is contained in:
Winston Chang
2016-06-20 15:12:10 -05:00
parent 44521be6dd
commit f7151e2132
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
R/save-state.R
View File

@@ -42,7 +42,7 @@ ShinySaveState <- R6Class("ShinySaveState",
saveRDS(self$values, file.path(stateDir, "values.rds"))
})
paste0("_state_id=", encodeURIComponent(id))
paste0("__state_id__=", encodeURIComponent(id))
},
# Encode the state to a URL. This does not save to disk.
@@ -110,10 +110,10 @@ RestoreContext <- R6Class("RestoreContext",
{
qsValues <- parseQueryString(queryString, nested = TRUE)
# If we have a "_state_id" key, restore from persisted state and ignore
# If we have a "__state_id__" key, restore from persisted state and ignore
# other key/value pairs. If not, restore from key/value pairs in the
# query string.
if (!is.null(qsValues[["_state_id"]]) && nzchar(qsValues[["_state_id"]])) {
if (!is.null(qsValues[["__state_id__"]]) && nzchar(qsValues[["__state_id__"]])) {
private$loadStateQueryString(queryString)
} else {
@@ -157,10 +157,10 @@ RestoreContext <- R6Class("RestoreContext",
),
private = list(
# Given a query string with a _state_id, load persisted state with that ID.
# Given a query string with a __state_id__, load persisted state with that ID.
loadStateQueryString = function(queryString) {
values <- parseQueryString(queryString, nested = TRUE)
id <- values[["_state_id"]]
id <- values[["__state_id__"]]
# This function is passed to the loadInterface function; given a
# directory, it will load state from that directory