Rmarkdown导入最新的网络摄像头图像？

install.packages(c("shiny", "jpeg", "magick"))

rmarkdown::create("camera_image.Rmd", template = "default")

```{r, echo=FALSE}
library(shiny)

ui <- fluidPage(
  titlePanel("实时网络摄像头图像"),
  mainPanel(
    imageOutput("cameraImage")
  )
)

server <- function(input, output) {
  output$cameraImage <- renderImage({
    invalidateLater(1000)  # 每秒更新一次图像
    list(src = "http://your_camera_ip_address/image.jpg",
         alt = "网络摄像头图像")
  }, deleteFile = FALSE)
}

shinyApp(ui = ui, server = server)

4. 替换网络摄像头地址：将代码块中的`http://your_camera_ip_address/image.jpg`替换为实际网络摄像头的图像地址。

5. 运行Rmarkdown文档：保存并运行`camera_image.Rmd`文档，可以使用以下命令：
```R
rmarkdown::run("camera_image.Rmd")