Как я могу назвать график из R уценки в R блестящий?

Question

У меня есть файл "example.Rmd", в котором я создаю сюжетный график. Я хочу вызвать этот график в моем блестящем и показать график в блестящем интерфейсе.

Мой "example.Rms" похож на ниже

---
title: "example"
output: html_document
params:
  var1: default
  var2: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)


```{r pressure, echo=FALSE}
p <- plotly::plot_ly(data = cars, x = ~params$var1, y = ~params$var2)
p

И мой код приложения выглядит следующим образом:

library(shiny)
ui <- fluidPage(
  fluidRow(
    column(3,
           selectInput("v1", "X variable", names(cars))),
    column(3,
           selectInput("v2", "Y variable", names(cars))),
    column(2, 
           actionButton("g_plot", "Generate Plot"))
  )
)

server <- function(input, output){

  observeEvent(input$g_plot, {
    rmarkdown::render(
      input = "~/example.Rmd",
      params = list(
        var1 = input$v1,
        var2 = input$v2
      )
    )
  })

}

shinyApp(ui, server)

По этому коду я могу создать отчет. Но как я могу показать сюжет "p" в блестящем приложении?