shinyga (version 0.1.2.9001)

addMessageData: addMessageData - creates another Message object

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)