R Shiny：分析已部署应用程序中的用户数据答案

【问题标题】：R Shiny: Analysing user data in deployed appR Shiny：分析已部署应用程序中的用户数据
【发布时间】：2018-06-11 23:18:47
【问题描述】：

我终于尝试制作一个闪亮的应用程序。我正在尝试将 .xlsx 文件上传到应用程序，然后应用一些分析并将输出下载为单独的 .xlsx 文件。用于分析和获取输出的代码直接在 Shiny 外部运行时有效，我每天都使用它，所以我只是尝试通过 source 调用它并保存重复的工作。这是我正在尝试的 Shiny。

我在从 W2S.R 脚本调用文件时遇到问题，同时避免了错误。我找到了避免错误的方法。下面的代码是它的准系统模型。但是，现在我无法让实际输入工作（输出工作正常，一个表格输出在屏幕上，一个 XLSX 输出在屏幕外）。

我在 W2S.R 脚本中使用W2S <- input$W2S1，但它无法识别变量input，如果直接在服务器函数中使用它会识别。如何让它在脚本中工作？还是有其他解决方法？

library(shiny)
ui <- fluidPage(
   titlePanel(h1("Goods In Transit Analysis", align="center")),
   sidebarLayout(
      sidebarPanel(
         fileInput("W2S1", label="Select GIT W2S file")
      ),
      mainPanel(
        tableOutput("contents")
      )
   )
)
server <- function(input, output) {
  output$contents <- renderTable(if(is.null(input$W2S1)){return(NULL)}
                                 else{source("./W2S.R")})
}
shinyApp(ui = ui, server = server)

一旦我得到输入，我会更新。请帮忙。

编辑：取得了一些进展，如上所述。于是更新了新代码。

【问题讨论】：

标签： r shiny

【解决方案1】：

终于搞定了。我需要一个observe 函数并使用$datapath 参数。

library(shiny)
ui <- fluidPage(
   # Application title
   titlePanel(h1("Goods In Transit Analysis", align="center")),
   # Sidebar iputs
   sidebarLayout(
      sidebarPanel(
         fileInput(inputId="W2S", label="Select GIT W2S file")
      ),
      # On Screen output
      mainPanel(
        h3(textOutput("filePath")),
        tableOutput("contents")
      )
   )
)
# Underlining code for output
server <- function(input, output) {
  observe({
    source("./Code/W2S.R")
    W2S <- input$W2S
    output$contents <- renderTable(if(is.null(W2S)){return(NULL)}
                                   else{W2S_F(W2S$datapath)})
  })
}
# Run the application
shinyApp(ui = ui, server = server)

【讨论】：

请将任何相关信息编辑到您的原始帖子中。这里的空间仅供回答。
@BenBarnes 更新了问题并删除了答案。谢谢。
终于搞定了。