Question

我在几个examples中看到.Rmd文件的输入来自输入对象。我查看了similar个问题(also this one)

我有以下问题：

  ui <- fluidPage(
      fileInput(inputId =  "File",label =  "Upload file...",accept=c("zip","text")),
      radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
                   inline = TRUE),
      downloadButton('downloadReport'),
      tableOutput("AEP")
    )
)

输入对象是一个zip文件。包含不同的文件夹我提取合适的文件夹并在服务器功能中提取我的文件。

    server <- function(input, output){
      options(shiny.maxRequestSize=50*1024^2) 
      output$AEP <- renderTable({
      infile=input$File

      if (is.null(infile))
        return(NULL)

      report_list <- c("Park result.txt",
                       "Park result minus",
                       "Park result plus")
      temp_files <- unzip(infile$datapath)
      temp_files <- temp_files[grepl(paste(report_list, collapse = "|"), temp_files)]
T=length(temp_files)
  t1=3*c(1:(T/3))

  t2=c(1:T)
  t2=t2[-t1]
  p=c();for(i in 1:T){p[[i]]=c()}
  for(i in 1:(length(t1))){p[[t1[i]]]=read.table(temp_files[t1[i]],skip=1,sep=";")}
  for(i in 1:(length(t2))){p[[t2[i]]]=read.table(temp_files[t2[i]],skip=2,sep=";")}
...

最后我的文件为p[[i]]。我在那些p [[i]]上进行计算，最后我的输出称为AEP（这是一个表）。我想在降价报告中使用该表。现在为了我的Rmd文件有适当的输入，我需要将此功能添加到服务器：

output$downloadReport <- downloadHandler(
    filename = function() {
      paste('my-report', sep = '.', switch(
        input$format, PDF = 'pdf', HTML = 'html', Word = 'docx'
      ))
    },

    content = function(file) {
      # Copy the report file to a temporary directory before processing it, in
      # case we don't have write permissions to the current working dir (which
      # can happen when deployed).
      tempReport <- file.path(tempdir(), "report.Rmd")
      file.copy("report.Rmd", tempReport, overwrite = TRUE)

      # Set up parameters to pass to Rmd document
      params <- list(n = output$AEP)

      # Knit the document, passing in the `params` list, and eval it in a
      # child of the global environment (this isolates the code in the document
      # from the code in this app).
      rmarkdown::render(tempReport, output_file = file,
                        params = params,
                        envir = new.env(parent = globalenv())
      )
    }
  )

我无法编译它，因为：

params <- list(n = output$AEP)

和Error : Reading objects from shinyoutput object not allowed. 任何关于如何定义params的想法都将非常感激。（我已经尝试n=input$File但它没有用）

我不知道在这种情况下我应该如何处理reactive()功能。

Rmd文件的闪亮输入：不允许从shinyoutput对象读取对象

0 个答案: