socialButton(href, icon)

if (interactive()) {
 library(shiny)
 library(shinydashboard)
 library(shinydashboardPlus)
 
 shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
     box(
      title = "Social Buttons",
      status = NULL,
      socialButton(
        href = "https://dropbox.com",
        icon = icon("dropbox")
      ),
      socialButton(
        href = "https://github.com",
        icon = icon("github")
      )
     )
    ),
    title = "Social Buttons"
  ),
  server = function(input, output) { }
 )
}