无法运行外部 R 脚本从最终用户本地库进入 Shiny 应用程序（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 到源文件..

Not able to run external R script from end user local library into Shiny app(shinyapp.io)