Fix bug: Selections being cleared when loading results server

deto · deto · commit 2b26f89f1e42 · 2020-01-13T10:20:35.000-08:00
diff --git a/R/Server.R b/R/Server.R
@@ -195,10 +195,10 @@ launchServer <- function(object, port=NULL, host=NULL, browser=TRUE) {
     }
 
     # Ensure the 'Viewer' list is fully initialized
-    if (!("selections" %in% object@Viewer)){
+    if (!("selections" %in% names(object@Viewer))){
         object@Viewer[["selections"]] <- list()
     }
-    if (!("de_cache" %in% object@Viewer)){
+    if (!("de_cache" %in% names(object@Viewer))){
         object@Viewer[["de_cache"]] <- list()
     }
 

Original file line number	Diff line number	Diff line change
`@@ -195,10 +195,10 @@ launchServer <- function(object, port=NULL, host=NULL, browser=TRUE) {`
`195`	`195`	`}`
`196`	`196`
`197`	`197`	`# Ensure the 'Viewer' list is fully initialized`
`198`		`- if (!("selections" %in% object@Viewer)){`
	`198`	`+ if (!("selections" %in% names(object@Viewer))){`
`199`	`199`	`object@Viewer[["selections"]] <- list()`
`200`	`200`	`}`
`201`		`- if (!("de_cache" %in% object@Viewer)){`
	`201`	`+ if (!("de_cache" %in% names(object@Viewer))){`
`202`	`202`	`object@Viewer[["de_cache"]] <- list()`
`203`	`203`	`}`
`204`	`204`