Learn R Programming

shinydashboardPlus (version 0.8.0.9000)

socialBox: AdminLTE2 social box

Description

Create social box

Usage

socialBox(
  ...,
  src = NULL,
  title = NULL,
  subtitle = NULL,
  width = 6,
  height = NULL,
  collapsible = TRUE,
  closable = TRUE,
  comments = NULL,
  footer = NULL,
  footer_padding = TRUE
)

Arguments

...

body content. May include attachmentBlock for instance.

src

header image, if any.

title

box title.

subtitle

box subtitle.

width

box width (between 1 and 12).

height

box height.

collapsible

If TRUE, display a button in the upper right that allows the user to collapse the box.

closable

If TRUE, display a button in the upper right that allows the user to close the box.

comments

slot for boxComments.

footer

box footer, if any.

footer_padding

TRUE by default: whether the footer has margin or not.

Examples

Run this code
# 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 = "https://adminlte.io/themes/AdminLTE/dist/img/photo1.png",
       title = "Test",
       title_url = "https://google.com",
       "This is the content"
      ),
      comments = tagList(
       lapply(X = 1:10, FUN = function(i) {
        boxComment(
          src = "https://adminlte.io/themes/AdminLTE/dist/img/user3-128x128.jpg",
          title = paste("Comment", i),
          date = "01.05.2018",
          paste0("The ", i, "-th comment")
        )
       })
      ),
      footer = "The footer here!"
     )
    ),
    title = "socialBox"
  ),
  server = function(input, output) { }
 )
}

# }

Run the code above in your browser using DataLab