包括png到pdf输出

Question

我使用以下代码为闪亮的应用程序中的iFrame输出生成pdf。该守则运作良好。我的问题是：如何将一些png文件添加到pdf中？

UI代码

 fluidRow(column(2, 
          textInput("textin", label = "text input"), 
          actionButton("makepdf", "Make pdf")),
          mainPanel(htmlOutput("frame2")))

服务器代码

observeEvent(input$makepdf,{
            title <- input$textin
            print(title)
            pdf("./www/test.pdf")
            plot(mtcars$mpg,mtcars$disp, main = title)
            dev.off()
            })
output$frame2<- renderUI({
           if((input$makepdf)<1) return()
           test <- "test.pdf"
           my_test <- tags$iframe(src=test, height=1500, width = "100%")
           print(my_test)
           return({my_test})
           })

直到这里一切都在我的代码中正常工作。我尝试了以下代码，但是它不起作用：

observeEvent(input$makepdf,{
            title <- input$textin
            print(title)
            pdf("./www/test.pdf")
            plot(mtcars$mpg,mtcars$disp, main = title)

            img(src = "www/images/image.png")

            dev.off()
            })

我的代码有什么问题？如何将png文件添加到pdf中？

非常感谢您的帮助：）