[FEAT] Support usage in Shiny Apps #23

Activity

1. tbouffard

   added

   enhancementNew feature or requestNew feature or request

   on Aug 25, 2021
2. tbouffard

   added this to the MVP milestone on Aug 25, 2021
3. tbouffard commented on Aug 31, 2021

   

   tbouffard

   on Aug 31, 2021

   MemberAuthor

   More actions

   ✔️ Tested with commit 0192a9d

   

   # Install and load packages
   install.packages("shiny")
   library(shiny)
   devtools::install_github("process-analytics/bpmn-visualization-R")
   library(bpmnVisualization)
   
   displayBpmn <- function() {
       bpmn_file <- system.file("examples/Travel_Booking.bpmn", package = "bpmnVisualization")
       overlays <- list(bpmnVisualization::create_overlay("_6-203", "9"))
       bpmnVisualization::display(bpmn_file, overlays = overlays)
   }
   
   ui <- shinyUI(fluidPage(
       titlePanel("Display bpmn diagrams with execution data"),
       bpmnVisualizationOutput('bpmnContainer')
     )
   )
   
   server = function(input, output) {
       # renderBpmnVisualization is the R bridge function to the html widgets
       output$bpmnContainer <- renderBpmnVisualization({ displayBpmn() })
   }
   
   shinyApp(ui = ui, server = server)
4. tbouffard commented on Aug 31, 2021

   

   tbouffard

   on Aug 31, 2021

   MemberAuthor

   More actions

   Fully working so closing.
5. tbouffard

   closed this as completedon Aug 31, 2021
6. tbouffard

   modified the milestones: MVP, 0.1.0 on Oct 23, 2021