Create Flashing Browser Title

flashing_window_title(
  session = shiny::getDefaultReactiveDomain(),
  title = "Ready!",
  inactive_only = FALSE,
  revert_on_focus = inactive_only,
  revert_on_mousemove = TRUE,
  interval = 500,
  duration = 0
)

Arguments

session	The `session` object passed to function given to `shinyServer`. Default is `getDefaultReactiveDomain()`.
title	String to give the window title.
inactive_only	Logical, whether or not the title should only change if the tab is not active. Default is set to `FALSE`.
revert_on_focus	Logical, should the title revert back to the original title when the tab is in focus/active again? Only works when `inactive_only = TRUE`.
revert_on_mousemove	Logical, should the title revert back to the original title when tthe mouse is moved in the tab? Default is set to `TRUE`.
interval	Time (in milliseconds) to flip between the original title and the new title.
duration	Time (in milliseconds) to stop flashing the title. 0 (the default) means it will flash indefinitely.

Examples

if (interactive()) {
  library(shiny)

  ui <- fluidPage(
    title = "Initial Title",
    use_shiny_title(),
    actionButton("button", "Click me for a 10 second flashing title"),
    actionButton("button2", "Click me for a delayed flashing button")
  )

  server <- function(input, output, session) {
    observeEvent(input$button, {
      flashing_window_title(
        session, "--- Flash ---", revert_on_mousemove = FALSE, duration = 10000
      )
    })

    observeEvent(input$button2, {
      Sys.sleep(3)
      flashing_window_title(
        session, "Please Come Back", inactive_only = TRUE, interval = 1000
      )
    })
  }

  shinyApp(ui, server)
}