# 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 = "Buttons"
),
server = function(input, output) { }
)
}
# }
Run the code above in your browser using DataLab