Question

在我的应用程序中，我要上载本地的csv文件（事件日志），显示数据表，然后使用csv文件（bupar）中的数据创建一个流程图。在普通的R脚本中，可以很好地创建流程图。但是，如何在闪亮的应用程序中按下“ createDiagram”按钮来绘制流程图（在DataTables下面）？预先感谢！

代码下方：

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)

Answer 1

processmap() 输出一个 dgr_graph 对象。这些可以在闪亮的应用程序中呈现

library(DiagrammeR)
grVizOutput(outputId = "process")

和

output$process <-  renderGrViz({
  plot <- process_map(eventlog, render = F)
  render_graph(plot)
})

如何在闪亮的（R）中绘制流程图（bupar）？

1 个答案: