From 1117faf2e88c587b287025d438f725a2b4fa5258 Mon Sep 17 00:00:00 2001 From: Brian Pentland Date: Mon, 18 Jun 2018 16:40:14 +0000 Subject: [PATCH] Moved the declaration of Global_POV from global.R to server.R Everything still seems to work, but does it fix the scope problem on the server?? --- Inst/ThreadNet/global.R | 8 ++++---- Inst/ThreadNet/server.R | 8 ++++++++ 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/Inst/ThreadNet/global.R b/Inst/ThreadNet/global.R index 221d5fd..b119701 100644 --- a/Inst/ThreadNet/global.R +++ b/Inst/ThreadNet/global.R @@ -57,8 +57,8 @@ visualizations <- c( Sys.setenv(TZ='GMT') # This is where we store the list of event mappings. -Global_POV <<- list() -Global_POV_Name <<- list() -Global_POV_Event_CF <<- list() -Global_POV_Thread_CF <<- list() +# Global_POV <<- list() +# Global_POV_Name <<- list() +# Global_POV_Event_CF <<- list() +# Global_POV_Thread_CF <<- list() diff --git a/Inst/ThreadNet/server.R b/Inst/ThreadNet/server.R index 5df2925..a2ece5e 100644 --- a/Inst/ThreadNet/server.R +++ b/Inst/ThreadNet/server.R @@ -8,6 +8,14 @@ server <- shinyServer(function(input, output, session) { + # try just moving these here and see if it works... + Global_POV <<- list() + Global_POV_Name <<- list() + Global_POV_Event_CF <<- list() + Global_POV_Thread_CF <<- list() + + + observe({ hide(selector = "#navbar li a[data-value=choosePOV]") hide(selector = "#navbar li a[data-value=visualize]")