initMessageData: initMessageData - creates Message object

In MarkEdmondson1234/shinyga: Easier Google Authentication in Shiny

Description

Use this first before addMessageData adds to the notification menu when stuff happens

Usage

initMessageData(text = c("Welcome! Authenticate to get started."),
  icon = c("smile-o"), status = c("info"))

Arguments

text	Text of message.
icon	Icon taken from shinydashboard.
status	Color of message. See Details.

Value

messageData Object to be passed to addMessageData().

See Also

http://rstudio.github.io/shinydashboard/appearance.html#icons

Other message functions: addMessageData

Examples

## Not run: 

## server.r
shinyServer(function(input, output, session) {

    messageData <- initMessageData()

    addMessageData(messageData, "A new message!")

      output$messageMenu <- renderDropdownMenu({

      message_df <- data.frame(text = messageData$text,
                               icon = messageData$icon,
                               status = messageData$status)

     msgs <- apply(message_df, 1, function(row){
                   notificationItem(text = row[['text']],
                                    icon = icon(row[['icon']]),
                                    status = row[['status']])

                   })

     dropdownMenu(type="notifications", .list = msgs)

     })

}

## ui.r

dashboardHeader(title = "GA Forecast",
                dropdownMenuOutput("messageMenu"))

## End(Not run)

MarkEdmondson1234/shinyga documentation built on May 7, 2019, 3:34 p.m.