無法訪問我的變量r

Question

我實際上是一個閃亮的應用程序。這是我的代碼。

global.R

json <- fromJSON("./init.json") 
param <- json$cube %>% setDT() 
global <- list() 

server.R

shinyServer(function(input, output, session) { 
    observeEvent(input$chargerCube,{ 
    startLoading() 
    global <- creationCube(input) 
    endLoading() 
    }) 

    observeEvent(input$butAddCol,{ 
    global <- ajoutColonne(global, input) 
    }) 
}) 

我的問題是，在我的第二個observeEvent，我有我的 「全局」 變量沒有錯誤存在...我不明白爲什麼：/

Answer 1

嘗試使用

source('global.R') 
shinyServer(function(input, output, session) { 
     observeEvent(input$chargerCube,{ 
     startLoading() 
     global <- creationCube(input) 
     endLoading() 
     }) 

     observeEvent(input$butAddCol,{ 
     global <- ajoutColonne(global, input) 
     }) 
    })