some adjustments after feedback

R/shiny.R

@@ -750,9 +750,6 @@ ShinySession <- R6Class(
         }, silent=FALSE)
       }
 
-      #*************** REMOVE THIS *************#
-      self$user <- self$user %OR% "testuser"
-
       # session$request should throw an error if httpuv doesn't have
       # websocket$request, but don't throw it until a caller actually
       # tries to access session$request
@@ -761,10 +758,10 @@ ShinySession <- R6Class(
       private$sendMessage(
         config = list(
           workerId = workerId(),
-          sessionId = self$token
+          sessionId = self$token,
+          user = self$user
         )
       )
-      if (!is.null(self$user)) self$sendUserInfo(userId = self$user)
     },
     rootScope = function() {
       self

inst/www/shared/shiny.js

@@ -1135,7 +1135,8 @@ var _typeof = typeof Symbol === "function" && typeof Symbol.iterator === "symbol
     });
 
     addMessageHandler('config', function (message) {
-      this.config = message;
+      this.config = { workerId: message.workerId, sessionId: message.sessionId };
+      if (message.user != null) exports.user = message.user;
     });
 
     addMessageHandler('busy', function (message) {

srcjs/shinyapp.js

@@ -631,7 +631,8 @@ var ShinyApp = function() {
   });
 
   addMessageHandler('config', function(message) {
-    this.config = message;
+    this.config = {workerId: message.workerId, sessionId: message.sessionId};
+    if (message.user != null) exports.user = message.user;
   });
 
   addMessageHandler('busy', function(message) {