如何在shiny (R)中绘制processmap (bupar)？

install.packages("shiny")
install.packages("processmap")

library(shiny)

ui <- fluidPage(
  titlePanel("绘制Process Map"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加任何输入控件
    ),
    mainPanel(
      # 在这里添加绘图输出
      plotOutput("processMapPlot")
    )
  )
)

server <- function(input, output) {
  output$processMapPlot <- renderPlot({
    # 在这里编写绘制process map的代码
  })
}

shinyApp(ui = ui, server = server)

library(processmap)

output$processMapPlot <- renderPlot({
  # 创建一个空的process map对象
  process_map <- process_map()

  # 添加节点
  process_map <- add_process(process_map, "节点1")
  process_map <- add_process(process_map, "节点2")
  process_map <- add_process(process_map, "节点3")

  # 添加连接
  process_map <- add_connection(process_map, "节点1", "节点2")
  process_map <- add_connection(process_map, "节点2", "节点3")

  # 绘制process map
  plot(process_map)
})