通过 Shiny Server 将 Shiny 输入传递给 R markdown

Posted 2023-03-24

【中文标题】通过 Shiny Server 将 Shiny 输入传递给 R markdown

【英文标题】：Passing a Shiny input to R markdown via Shiny Server

【发布时间】：2016-10-13 09:22:27

【问题描述】：

我正在尝试构建一个 Shiny 应用程序并将其托管在我公司的 Shiny 服务器上，该服务器接受输入的股票代码并使用它从我们的数据库中提取数据并在 markdown(.md) 或 word 中生成一系列图形和表格(.doc) 格式。理想情况下，我会为这个 App 提供三个文件：server、ui 和 r markdown 模板。

我目前有一个使用 SWeave 的工作应用程序，但 TeX 文件在呈现中文字符时存在问题，所以我想使用 RMD。

server.r:

library(knitr)
shinyServer(function(input, output) 
 output$report = downloadHandler(
      filename = 'myreport.pdf',
      content = function(file) 
           out = knit2pdf('input.Rnw', clean = TRUE)
           file.rename(out, file) # move pdf to file for downloading
      ,
      contentType = 'application/pdf'
 )
)

ui.r:

library(shiny)
shinyUI(basicPage(
 textInput('stockcode', 'Stock Code:', value = '600340.SH'),
 downloadButton('report')
))

输入.Rnw：

 \documentclassarticle

 \begindocument
 \SweaveOptsconcordance=TRUE

 <<initialize, echo = FALSE, results = 'hide'>>=
 library(ggplot2); library(RJDBC); library(gridExtra)
 Sys.setlocale("LC_CTYPE", "chinese")
 o.drv <- JDBC("oracle.jdbc.OracleDriver", classPath="C:/Oracle/instantclient_11_2/ojdbc5.jar", " ")
 o.con <- dbConnect(o.drv, "database_address", "database_user", "database_pw")

 stockcode <- input$stockcode

 x <- dbGetQuery(o.con, "some_query")

 pointLinePlot <- function(df) 
      plotdata <- gather(df, metric, measure, -reportDate)
      ggplot() + geom_line(data = plotdata, aes(x = reportDate, y = measure, color = metric)) +
           geom_point(data = plotdata, aes(x = reportDate, y = measure, color = metric)) + 
           theme(legend.position="bottom", legend.title = element_blank()) + 
           scale_color_manual(name = "", values = c("darkred", "darkgreen", "darkblue", "orange"), 
                              breaks = unique(plotdata$metric), labels = unique(plotdata$metric))
 

 data_1.1.1 <- data.frame(reportDate = x$REPORT_PERIOD,
                          net_assets_f = x$`TOT_ASSETS-TOT_LIAB` / 1E4,
                          monetary_cap_f = x$MONETARY_CAP / 1E4,
                          net_cash_f = (x$MONETARY_CAP - x$ST_BORROW) / 1E4)
 p1 <- pointLinePlot(data_1.1.1)
 @


 \beginfigure
   \centering
 <<fig = TRUE, echo = FALSE>>=
 print(p1)
 @
 \captionHere goes the caption.
 \labelfig:p1
 \endfigure


 \beginfigure
   \centering
 <<fig = TRUE, echo = FALSE>>=
 print(grid.table(data_1.1.1, rows = NULL))
 @
 \captionHere goes the caption.
 \labelfig:p1
 \endfigure


 \enddocument

有什么方法可以像我在 input.Rnw 中使用 SWeave (stockcode

【参考方案1】：

您不必将它传递给 Rmd 文件。渲染 Rmd 时，变量 input$stockcode 会从当前环境中获取，就像使用 Rnw 版本一样。

server.R

library(knitr)
library(rmarkdown)
shinyServer(function(input, output) 

  output$report = downloadHandler(
    filename = 'myreport.pdf',
    content = function(file) 
      out = render('outout.Rmd')
      file.rename(out, file) # move pdf to file for downloading
    ,
    contentType = NA
  )
)

input.Rmd

---
title: "Output"
output: pdf_document
---

# Test 

```r
print(input$stockcode)
```