inst/examples/boxes/social_box.R

In dsciencelabs/shinydashboardPlus: Add More 'AdminLTE2' Components to 'shinydashboard'

social_box <- 'socialBox(
  title = "Social Box",
  width = 12,
  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(
    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!"
)'