无法在 R 闪亮应用程序中下载带有图像的 HTML 文件

如何解决无法在 R 闪亮应用程序中下载带有图像的 HTML 文件

我有一个 R 闪亮的应用程序，它从 R 脚本代码创建 html 输出并在浏览器中显示代码。我添加了下载此 html 输出文件的功能，并且可以使用 downloadHandler 下载 html，但是下载的文件不包含图像输出。

|
|- app.R
|- code.R
|- www/
       - out_html.html

下面是 R 闪亮的应用程序文件

library(shiny)
library(shinydashboard)
library(prettyR)
library(R2HTML)
library(shinyAce)

ui <- fluidPage(
    dashboardPage(
        dashboardHeader(title = "App Demo"),dashboardSidebar(),dashboardBody(
            
            fluidRow(
                
                column(12,####  Ui HTML Output  ----
                       htmlOutput('htmlOutput_1'),br(),downloadButton(outputId = "downloadData",label ="Download Output",icon = shiny::icon("download"))
                        
                )
            )
            
        )
    )            
    
)



server <- function(input,output,session) {
    
    # Code to convert R code file to html output file
    R2html("code.R","www/out_html.html",browse = FALSE,title = " ",bgcolor="#FFFFFF",split = FALSE)

    # To generate html output for browser 
    output$htmlOutput_1 <- renderUI({
        tags$iframe(
            seamless="seamless",src="out_html_list.html",height=600,width=635)
    })
    
    ## Download button Output ----

    output$downloadData <- downloadHandler(
        filename <- function() {
            paste("output","html",sep=".")
        },content <- function(file) {
            file.copy("www/out_html_list.html",file)
        },contentType = "application/html"
    )
}

# Run the application 
shinyApp(ui = ui,server = server)

这是同一文件夹位置的code.R

print("R Code")
print(head(pressure))
plot(pressure)#--fig--

您能否建议一种下载包含绘图图像输出的 html 文件的方法。

感谢您抽出宝贵时间。