bs4SocialCard: AdminLTE3 social card
In RX-PBB/bs4Mash: A 'Bootstrap 4' Version of 'shinydashboard'

Description Usage Arguments Author(s) Examples

Create social card

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

`...`	Body content. May include attachmentBlock for instance.
`src`	Header image, if any.
`title`	Card title.
`subtitle`	card subtitle.
`width`	Card width (between 1 and 12).
`height`	Card height.
`collapsible`	If TRUE, display a button in the upper right that allows the user to collapse the card.
`closable`	If TRUE, display a button in the upper right that allows the user to close the card.
`comments`	Slot for cardComment.
`footer`	Card footer, if any.

David Granjon, dgranjon@ymail.com

if (interactive()) {
 library(shiny)
 library(bs4Dash)
 shinyApp(
  ui = bs4DashPage(
    navbar = bs4DashNavbar(),
    sidebar = bs4DashSidebar(
     bs4SidebarMenu(
       bs4SidebarHeader("Main content"),
       bs4SidebarMenuItem(
         "Social Card",
         tabName = "social_card",
         icon = "desktop"
       )
      )
    ),
    footer = bs4DashFooter(),
    body = bs4DashBody(
     bs4TabItems(
       bs4TabItem(
         tabName = "profile_card",
         bs4SocialCard(
          title = "Social Card",
          subtitle = "example-01.05.2018",
          src = "https://adminlte.io/themes/AdminLTE/dist/img/user4-128x128.jpg",
          "Some text here!",
          comments = tagList(
           lapply(X = 1:10, FUN = function(i) {
             cardComment(
              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 = "socialCard"
  ),
  server = function(input, output) { }
 )
}