eventCountdownOutput: Add event countdown and other information

In nasilAbednego/shinyTaskscheduler: Set time for Shiny app Server to execute your code

Add event countdown and other information

Description

Show event countdown alert. TimeTo should be in the format 'hour:min:sec'. Write eventCountdown in server and write uiOutput('eventCountdown') in ui to obtain eventCountdown outputs Write eventCountdownOutput() in ui to obtain eventCountdown outputs

Usage

# in ui
eventCountdownOutput()
# in server
eventCountdown(event.starting_time  = '15:00:00',event.closing_time = '5:00:00',Note.Bfr.Event = 'The event starts soon',Note.During.Event = 'In progress|',add_expr.Bfr.Event = 'Hamjambo!. Tunaanza hivi kwa muda uliosalia',output = output,add_expr.During.Event  = fluidPage(
    actionButton('hi.click.on.me',label='high click on me')
  ),session = session)

Examples

library(shiny)
library(shinyTaskscheduler)

# Define UI for application that draws a histogram
ui <- fluidPage(
applyshinySchedule(),
eventCountdownOutput()

)

# Define server logic required to draw a histogram
server <- function(input, output,session) {

eventCountdown(event.starting_time  = '15:00:00',event.closing_time = '5:00:00',Note.Bfr.Event = 'The event starts soon',Note.During.Event = 'In progress|',add_expr.Bfr.Event = 'Hamjambo!. Tunaanza hivi kwa muda uliosalia',output = output,add_expr.During.Event  = fluidPage(
    actionButton('hi.click.on.me',label=tagList(f7Icon('ellipsis_vertical'),'high click on me'),fill = F)
  ),session = session)


}

# Run the application
shinyApp(ui = ui, server = server)

nasilAbednego/shinyTaskscheduler documentation built on July 20, 2022, 9:10 a.m.