有一个“全局”变量仅用于 Shiny 中的会话

Question

我有多个带有多个会话的 Shiny 应用程序，我想要一个全局变量，但只在每个会话中，而不是覆盖不同会话之间的值。由于这个要求，我不能使用<<-赋值运算符。

我需要它的原因是我有几个变量正在被许多源函数使用，我不想将它们作为参数发送给所有函数。

关于如何做到这一点的任何想法？

编辑

我创建了一个简单的例子来更好地解释我的问题。假设这是我的server.R文件：

shinyServer(function(input, output, session) {
  source('shinyCommons.R')
  reportId <<- generateReportID()
  createLogFile()
})

这是包含非反应函数的shinyCommons.R函数文件：

createLogFile <- function()
{
  system(paste(touch,reportId,".log",sep=""))
}

现在的问题是，如果我使用<<-运算符，并且不同的会话同时处于活动状态，它们会覆盖彼此的reportID值。但是如果我把它放在一个reactive上下文中，那么非反应性函数就无法到达它。

有人可以帮助我了解我应该如何设计它吗？顺便说一句 - 我知道我可以将它作为参数发送给函数，但这只是一个小例子，我有很多变量和很多使用它们的函数

Answer 1

显然，我赢了赌注：您使用的<<-运算符不正确。这是一个工作示例。

在ui.R：

barraLaterale<-sidebarPanel(
    fluidRow(column(numericInput("numObs",label="Num Obs.",value=10000,min=100,step=1),width=6),column(helpText("Something"),actionButton("Bottone",label="Go!"),width=6)),
    sliderInput("media",label="Pick gaussian mean",min=-50,max=50,value=0),
    sliderInput("varianza",label="Pick gaussian standard deviation",min=0,max=10,value=5)
)
principale<-mainPanel(plotOutput("plotRisultato"),plotOutput("plotEsatto"))
shinyUI(fluidPage(
    titlePanel("Applicazione Prova"),
    sidebarLayout(barraLaterale,principale)
))

在server.R：

shinyServer(function(input, output) {
    #HERE WE DEFINE COMMON OBJECTS
    object<-0
    calcolaIstogramma<-reactive({
        rnorm(input$numObs,input$media,input$varianza)  
    })
    output$plotRisultato<-renderPlot({
        a<-input$Bottone
        variabile<-isolate(calcolaIstogramma())
        hist(variabile,breaks=50,col="blue")
    })
    output$plotEsatto<-renderPlot({
        a<-input$Bottone
        variabile<-isolate(calcolaIstogramma())
        #HERE WE ARE UPDATING THE VALUES
        object<<-object+1
        cat(object,"\n")
        plot(variabile,xlab="Variable trace",ylab="",ty="l")
    })
})

运行应用程序时打开几个会话。每次按下按钮时，您都应该看到外壳上的计数器。您可以看到计数器没有共享。公共对象在 的函数参数范围内定义shinyServer。然后，在其他函数/反应式上下文中，您可以用来<<-更新/覆盖这些值。