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

on rlog object definition, do not trigger a value change

Browse Source
This commit is contained in:
Barret Schloerke
2018-05-01 10:05:23 -04:00
parent d3a4f35170
commit cf546a47b6
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/reactives.R
View File

@@ -334,7 +334,7 @@ ReactiveValues <- R6Class(
if (!isTRUE(.hasRetrieved$keys[[key]])) {
rLog$defineKey(.reactId, key, .label, ctx$.domain)
rLog$valueChangeKey(.reactId, key, keyValue, ctx$.domain)
# rLog$valueChangeKey(.reactId, key, keyValue, ctx$.domain)
.hasRetrieved$keys[[key]] <<- TRUE
}
rLog$dependsOnKey(ctx$.reactId, .reactId, key, ctx$id, ctx$.domain)
@@ -435,7 +435,7 @@ ReactiveValues <- R6Class(
if (!isTRUE(.hasRetrieved$names)) {
domain <- getDefaultReactiveDomain()
rLog$defineNames(.reactId, .label, domain)
rLog$valueChangeNames(.reactId, nameValues, domain)
# rLog$valueChangeNames(.reactId, nameValues, domain)
.hasRetrieved$names <<- TRUE
}
.namesDeps$register()
@@ -485,7 +485,7 @@ ReactiveValues <- R6Class(
if (!isTRUE(.hasRetrieved$asListAll)) {
domain <- getDefaultReactiveDomain()
rLog$defineAsListAll(.reactId, .label, domain)
rLog$valueChangeAsListAll(.reactId, listValue, domain)
# rLog$valueChangeAsListAll(.reactId, listValue, domain)
.hasRetrieved$asListAll <<- TRUE
}
.allValuesDeps$register()
@@ -494,7 +494,7 @@ ReactiveValues <- R6Class(
if (!isTRUE(hasRetrieved$asList)) {
domain <- getDefaultReactiveDomain()
rLog$defineAsList(.reactId, .label, domain)
rLog$valueChange(.reactId, listValue, domain)
# rLog$valueChangeAsList(.reactId, listValue, domain)
.hasRetrieved$asList <<- TRUE
}
.valuesDeps$register()