app_buttons <- 'box(
  width = NULL,
  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
  )
)'