如何为特定用户摧毁Shiny观察者

Question

如何仅删除特定用户的观察者？

我有一群人同时在一个会话中互动。偶尔我必须同时触发所有这些事件。我只使用一个人来触发全局反应值，并且当观察到一些计算被执行时。

server.R

## only execute code if user is user1
o <- observeEvent( GlobalTriggers$Update, {    
    if( GlobalTriggers$Update & (userPID==1)) {
        ## Do some updating
    }
})

我想阻止其他用户进行观察。我尝试添加以下

server_addition.R

## Initial Observer
o_1 <- observeEvent(Triggers$Submit, {
        cat("Submit \n")

        ## Future Observers
        if (userPID !=1 ){
            cat("Destroy \n")
            o$destroy()
            o_1$destroy()
        }

})