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 = "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!"
)'