# NOT RUN {
if (interactive()) {
library(shiny)
library(shinydashboard)
shinyApp(
ui = dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
socialBox(
title = "Social Box",
subtitle = "example-01.05.2018",
src = "https://adminlte.io/themes/AdminLTE/dist/img/user4-128x128.jpg",
"Some text here!",
attachmentBlock(
src = "http://kiev.carpediem.cd/data/afisha/o/2d/c7/2dc7670333.jpg",
title = "Test",
title_url = "http://google.com",
"This is the content"
),
comments = tagList(
boxComment(
src = "https://adminlte.io/themes/AdminLTE/dist/img/user3-128x128.jpg",
title = "Comment 1",
date = "01.05.2018",
"The first comment"
),
boxComment(
src = "https://adminlte.io/themes/AdminLTE/dist/img/user5-128x128.jpg",
title = "Comment 2",
date = "01.05.2018",
"The second comment"
)
),
footer = "The footer here!"
)
),
title = "socialBox"
),
server = function(input, output) { }
)
}
# }
Run the code above in your browser using DataLab