title: Customize hoverinfo of ggplotly() in a bupaR:: activity frequency plot
body: <p>How can you set the hoverinfo of <code>ggplotly(</code>) in a activity frequency plot of <code>bupaR</code> to <code>Activity:</code> and <code>Absolute Activity Frequency:</code> ?</p>
  <pre><code>## app.R ##
  library(shiny)
  library(shinydashboard)
  library(bupaR)
  library(processmapR)
  library(eventdataR)
  library(plotly)
  ui &lt;- dashboardPage(
    dashboardHeader(title = &quot;decio&quot;),
    dashboardSidebar(
      collapsed = TRUE
      
    ),
    dashboardBody(
      
      plotlyOutput(&quot;activity_frequency&quot;),
  
      )
      
  )
    
  
  
  server &lt;- function(input, output,session) {
    sip&lt;-bupaR::simple_eventlog(eventlog = eventdataR::sepsis,
                                case_id = &quot;case_id&quot;,
                                activity_id = &quot;activity&quot;,
                                #activity_instance_id = &quot;activity_instance_id&quot;,
                                timestamp = &quot;timestamp&quot;,
                                #lifecycle_id = &quot;lifecycle&quot;,
                                resource_id = &quot;resource&quot;
    )
    output$activity_frequency &lt;- renderPlotly({
      
      ggplotly(sip %&gt;% activity_frequency(&quot;activity&quot;) %&gt;% plot())
    })
    
    
    
  }
  
  shinyApp(ui, server)
  </code></pre>