如何将变量从闪亮加载到全局环境？

问题描述

我该怎么做？

我有一个简单的闪亮应用程序，它读取一个csv文件，当我停止该闪亮应用程序时，我可以在全局环境中看到该csv。我使用了这段代码：

# Server ------------------------------------------------------------------

server = function(input,output,session){
    # Listens for click from element with ID=chck_file
    
    observeEvent(input$chck1_file,{
        # Check if file exists
        if ( file.exists( isolate({input$fname}) ) ){
            data <- reactiveValues()
            # display text
            output$text <- renderText({ paste("File exists in: ",getwd(),sep="") })

            data <- input$fname
            print(data)
            df = read.csv(data)
            output$table1 <- renderTable(df)
            assign('data',df,envir=.GlobalEnv)
            #print(summary(data))


        }
        else{
            output$text <- renderText({ paste("No such file in: ",sep="") })
        }
    })
    
}

使用功能Assign（），我可以获取此csv文件并在全局环境中加载，但是这种情况一直发生，直到我关闭闪亮的应用程序。如何在全局环境中使用此数据框，而又不关闭我闪亮的应用程序？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）