addMessageData: addMessageData - creates another Message object

In MarkEdmondson1234/shinyga: Easier Google Authentication in Shiny

Description

Use this after initMessageData to add a message when stuff happens Icons from shinydashboard functions

Usage

addMessageData(messageData, addText, addIcon = "users",
  addStatus = "success")

Arguments

messageData	Pass in the existing messageObject created by initMessageData.
addText	The message to add.
addIcon	Icon taken from shinydashboard. See Details.
addStatus	Color of message, see Details.

Value

Nothing.

See Also

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

Other message functions: initMessageData

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.