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) { }
)
}
Run the code above in your browser using DataLab