如何使用svgPanZoom显示bupaR process_map？

Question

使用bupaR，可以很容易地为事件日志创建一个process_map，并且可以使用以下代码在一个闪亮的应用程序模块中显示此地图：

fluidPage(
  fluidRow(
    column(10, grVizOutput(ns("ProcesAnalyse"))),
    column(2,
         fluidRow(actionButton(inputId = ns("doorloop_start_end_act_Button"), 
                               label = "Start en Eind", icon = NULL), 
                  actionButton(inputId = ns("doorloop_trace_freq_Button"), 
                               label = "Trace Frequentie", icon = NULL)
           )
    )
  ),
  fluidRow(h4("Metrieken"), br(), uiOutput(ns("Metrics")))
  )

  output$ProcesAnalyse <- renderGrViz({
    if (is.null(rv$Doorloop_events)) rv$Doorloop_events <- doorloop_events_reactive()
    withProgress(message = 'Verzamel de process-gegevens...', value = 0, {
    process_map(rv$Doorloop_events, rankdir = "TB", heigth = "2000px")
    })
  }) 

我正在尝试使用svgPanZoom在地图上平移或缩放。更换后

grVizOutput(ns("ProcesAnalyse"))

转到

svgPanZoomOutput(ns("ProcesAnalyse"))

并将$ProcesAnalyse输出到

output$ProcesAnalyse <- renderSvgPanZoom({
  if (is.null(rv$Doorloop_events)) rv$Doorloop_events <- doorloop_events_reactive()
  withProgress(message = 'Verzamel de process-gegevens...', value = 0, {
    svgPanZoom(
      process_map(rv$Doorloop_events, rankdir = "TB", render = FALSE) %>%
      export_svg())
  })
})

指标仍然显示，但我没有得到(请参见)可缩放的process_map。文档没有提供任何帮助。

我哪里弄错了？

本

Answer 1

调用：'process_map(rv$Doorloop_events，rankdir = "TB"，render = FALSE)‘返回一个dgr_graph对象，我最初了解到export_svg()将基于该对象构建并返回一个图。但是，首先必须使用dgr_graph对象来构建一个点对象。此输出$ProcesAnalyse提供所需的输出：

output$ProcesAnalyse <- renderSvgPanZoom({
  if (is.null(rv$Doorloop_events)) rv$Doorloop_events <- doorloop_events_reactive()
  withProgress(message = 'Verzamel de process-gegevens...', value = 0, {
    process_map(rv$Doorloop_events, rankdir = "TB", render = FALSE) %>% 
      generate_dot() %>% 
      grViz(width = 800, height = 1600) %>% 
      export_svg %>% 
      svgPanZoom(height=800, controlIconsEnabled = TRUE)
  })

})