# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinydashboard)
 shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
     box(
      title = "App Buttons",
      status = NULL,
      appButton(
        url = "http://google.com",
        label = "Users", 
        icon = "fa fa-users", 
        enable_badge = TRUE, 
        badgeColor = "purple", 
        badgeLabel = 891
      ),
      appButton(
        label = "Edit", 
        icon = "fa fa-edit", 
        enable_badge = FALSE, 
        badgeColor = NULL, 
        badgeLabel = NULL
      ),
      appButton(
        label = "Likes", 
        icon = "fa fa-heart-o", 
        enable_badge = TRUE, 
        badgeColor = "red", 
        badgeLabel = 3
      )
     )
    ),
    title = "App buttons"
  ),
  server = function(input, output) { }
 )
}
# }
Run the code above in your browser using DataLab