processanimater-legend : disappears - shinydashboard - multiple tabs - animate process

[urvikalia]

When multiple animate process (process map) are placed in different tabs on shiny dashboard, the legends disappear for the animation on second tab. Wanted to check if it is a know limitation or there is a workaround for it.

legends disappear on the second tab "resource map". steps to reproduce : click on process map tab and then resource map tab.

sampleCode.pdf

[urvikalia]

Probably the issue might be because of something else. As simply placing multiple animations on the fluid page doesn't create a problem, but having it within different tab panels does.

[fmannhardt]

Do you have a reproducible example? Then, I could explore this when I find time (not in the next weeks). It may be due to some wrong selectors or colliding element identifiers.

[urvikalia]

@fmannhardt thanks. attached is a reproducible example. Click on the other tab and legends go away for the resource Tab.

`

Note: currently both the process maps are the same

Simple shiny dashboard

library(shiny) library(shinydashboard) library(edeaR) library(processanimateR) library(bupaR)

eventlog <- patients ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu( menuItem("Process Map", tabName = "process", icon = icon("dashboard")), menuItem("Resource Map", tabName = "resource", icon = icon("dashboard"))

)

), dashboardBody(

fluidPage(tabItems(
  tabItem(tabName = "process",
          processanimaterOutput("process")),
  tabItem(tabName = "resource",
          processanimaterOutput("process2"))

)) 

))

server <- function(input, output) {

data <- reactive({ eventlog })

output$process <- renderProcessanimater(expr = { graph <- processmapR::process_map(data(), render = F) model <- DiagrammeR::add_global_graph_attrs(graph, attr = "rankdir", value = NULL, attr_type = "graph")

animate_process(
  data(),
  model,
  mode = "absolute",
  legend = "color",
  mapping = token_aes(
    color = token_scale(
      "handling",
      scale = "ordinal",
      range = RColorBrewer::brewer.pal(5, "YlOrBr")
    )
  ),
  duration = 60
)

})

output$process2 <- renderProcessanimater(expr = { graph <- processmapR::process_map(data(), render = F) model <- DiagrammeR::add_global_graph_attrs(graph, attr = "rankdir", value = NULL, attr_type = "graph") animate_process( data(), model, mode = "absolute", legend = "color", mapping = token_aes( color = token_scale( "handling", scale = "ordinal", range = RColorBrewer::brewer.pal(5, "YlOrBr") ) ), duration = 60 )

}) }

shinyApp(ui, server) `

[fmannhardt]

Sorry for the long delay. This was relatively easy to fix. I pushed it to the dev branch.

[urvikalia]

Thanks, felix