Hi,
Here is a way to got this done using this nice online CSS example:
library(shiny)
library(shinydashboard)
ui <- shinyUI(
fluidPage(
#Add the CSS to blink
tags$head(tags$style(
type="text/css",
".blinkMe {
animation: blinker 1s linear infinite;
}
@keyframes blinker {
50% { opacity: 0; }
}"
)),
#Only blink title
valueBox(HTML("<div class = blinkMe>test</div>"), "test"),
#Blink everything
div(class = "blinkMe", valueBox("test2", "test"))
)
)
server <- function(input, output){
}
shinyApp(ui, server)
The trick is that if Shiny does not have something included that can be done with JS or CSS, you can always 'force' it by creating your own classes or referencing the Shiny class / ID and adding custom stuff.
Hope this helps,
PJ