无法将最终用户本地库的外部R脚本运行到Shiny App(ShinyApp.io)中

Question

更新

我创建了一个闪亮的应用程序。最终用户可以运行其功能（R脚本）。我在此功能上启用了这些东西（下图）

server.r observeEvent(input$v1,{ inFile <- input$v1 if (is.null(inFile)) return(NULL) })

ui.r

fileInput('v1', 'End user function only in R script',accept=c('R/ R script','.R'))

在两个代码上方都只是小块。我想在这里浏览上运行我的单独的r文件，而代码不是来源。我想在我的闪亮应用程序中获取该功能，并在图表中绘制。

我的问题是在本地主机中正常工作的整个事情，我在shinyapp.io中部署了同一应用程序，此后 end user part不起作用（不是整个应用程序）> 我过去三天一直困扰着！伙计们可以做吗？谁能帮我？？我希望你们明白这一点。如果不后悔！！！

预先感谢

Answer 1

我找到了答案：

在服务器页面中包括 load（）函数，并通过加载按钮获取外部文件。

在服务器内部这样的代码。

load_Rdata <- function(){
  if(is.null(input$file)) return(NULL)
 inFile <- isolate({ input$file })
source(inFile$datapath)
}

在观察事件中调用此功能

observeEvent(input$btnLoad,{ load_Rdata() }）`

ui 像这样的代码

fileInput("file", label = "Rdata"), actionButton(inputId="btnLoad","Load")

通过 FileInput 获取文件，然后使用 load 按钮来源源呼叫 load_rdata 到源文件。