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)
  })  
})

我的问题是，在我的第二次观察事件中，我有错误，我的＆＃34;全球＆＃34;变量不存在......我不明白为什么：/

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)
      })  
    })

无法访问我的变量r

1 个答案: