如何在shiny（R）中绘制流程图（bupar）？

在我的应用程序中，我想上传一个本地csv文件（eventlog），显示datatable，然后使用csv文件（bupar）中的数据创建一个processmap。在普通的R脚本中，processmap的创建工作正常。但是，我如何在一个闪亮的应用程序中通过按下按钮“createDiagram”来绘制流程图（数据表下方）？提前谢谢

代码如下：

library(shiny)


ui <- fluidPage(

  titlePanel("Visualization"),

  sidebarLayout(

    sidebarPanel(

      fileInput("file1", "Choose a File:",
                multiple = FALSE,
                accept = c("text/csv",
                           "text/comma-separated-values,text/plain",
                           ".csv")),

      tags$hr(),

      actionButton("createDiagram","Create a Process Diagram"),

      tags$hr()

    ),

    mainPanel(
      tableOutput("contents"),
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {

  output$contents <- renderTable({

    req(input$file1)

    tryCatch(
      {
        inputData <- read.csv2(input$file1$datapath)
      },
      error = function(e) {
        stop(safeError(e))
      }
    )
  })
}


# Create Shiny app ----
shinyApp(ui, server)

库（闪亮）
用户界面