RMarkdown中的条形码渲染

Question

在Rmarkdown中尝试使用shinyBarcode包渲染条形码时，我无法将条形码打印为图像。函数barcodeOutput可以在Shiny应用程序中运行。但是在Rmarkdown文档中，我无法获取渲染的条形码。你能建议一个解决方案吗？感谢

```{r br,  include=TRUE}   
    ProdID <- "123"
    renderBarcode(ProdID)
    barcodeOutput(ProdID)
```