github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix missing period bug

Browse Source
This commit is contained in:
Barret Schloerke
2018-05-02 15:11:19 -04:00
parent 6e090d5112
commit 8648737a7a
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/graph.R
View File

@@ -247,9 +247,9 @@ RLog <- R6Class(
valueChangeNames = function(reactId, nameValues, domain)
valueChange(namesIdStr(reactId), nameValues, FALSE, domain),
valueChangeAsList = function(reactId, listValue, domain)
valueChange(asListIdStr(.reactId), listValue, FALSE, domain),
valueChange(asListIdStr(reactId), listValue, FALSE, domain),
valueChangeAsListAll = function(reactId, listValue, domain)
valueChange(asListAllIdStr(.reactId), listValue, FALSE, domain),
valueChange(asListAllIdStr(reactId), listValue, FALSE, domain),
valueChangeKey = function(reactId, key, value, domain)
valueChange(keyIdStr(reactId, key), value, FALSE, domain),

5
R/reactives.R
View File

@@ -316,9 +316,6 @@ ReactiveValues <- R6Class(
.allValuesDeps <<- Dependents$new(reactId = rLog$asListAllIdStr(.reactId))
.valuesDeps <<- Dependents$new(reactId = rLog$asListIdStr(.reactId))
.dedupe <<- dedupe
.namesDeps <<- Dependents$new()
.allValuesDeps <<- Dependents$new()
.valuesDeps <<- Dependents$new()
},
get = function(key) {
@@ -509,7 +506,7 @@ ReactiveValues <- R6Class(
.allValuesDeps$register()
}
if (!isTRUE(hasRetrieved$asList)) {
if (!isTRUE(.hasRetrieved$asList)) {
domain <- getDefaultReactiveDomain()
rLog$defineAsList(.reactId, .label, domain)
# rLog$valueChangeAsList(.reactId, listValue, domain)