socialBox: AdminLTE2 social box

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

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.

Author(s)

David Granjon, [e-mail]

Examples

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) { }
 )
}

dsciencelabs/shinydashboardPlus documentation built on Dec. 20, 2021, 2:10 a.m.