transparent

[motyocska]

Hello,

wanted to ask if you have an example of how to implement the transparent function? Struggling to get it to work...

this does not work: library(shiny) library(waiter)

ui <- fluidPage( useWaiter(), h1("Some content") )

server <- function(input, output){

Sys.sleep(1) waiter_show(html = spin_1(),color = "#123ecc",transparent(alpha =0.3))

for(i in 1:10){ Sys.sleep(runif(1) / 2) }

waiter_hide() }

shinyApp(ui, server)

much appreciate your help,

Andras

[motyocska]

ui <- fluidPage( useWaiter(), h1("Some content") )

server <- function(input, output){

Sys.sleep(1) waiter_show(html = spin_1(),color = 'rgba(245, 40, 145, 0.2)')

for(i in 1:10){ Sys.sleep(runif(1) / 2) }

waiter_hide() }

shinyApp(ui, server)