如何使反应功能全局化？

Question

在下面的代码中，如何在otherfunction（）中使用myData（）对象，这是服务器函数中暗含的另一个函数。 现在myData（）是本地的吗？ 我如何使其全球化？

library(shiny)
write.csv(data.frame(a = 1:10, b = letters[1:10]), 'test.csv')
runApp(list(ui = fluidPage(
titlePanel("Uploading Files"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose CSV File',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv'))
),
mainPanel(
tableOutput('contents')
)
)
)
, 
shinyServer (function(input, output, session){
myData <- reactive({
inFile <- input$file1
if (is.null(inFile)) return(NULL)
data <- read.csv(inFile$datapath, header = TRUE)
data
})
output$contents <- renderTable({
myData()
})

theotherfunction=theotherfunction(input,output,session)

}
)
)
)