inst/App/cv_builder/publication_box.R

In DivadNojnarg/shinyCV: Create beautiful HTML CVs with shiny

publication_box <- function(reference, abstract, pubmed_link, screenshot, box_index) {

  # box_index is used to create ID number
  # for each publication box.
  # It is shown in a black panel in the header

  tags$div(
    class = "col-md-6",
    tags$div(
      class = "box box-widget",
      ## Box header ##
      tags$div(
        class = "box-header with-border",
        # user block
        tags$div(
          class = "user-block",
          tags$span(class = "badge bg-black", box_index),
          tags$p(class = "username text-center", reference)
        ),
        tags$div(
          class = "box-tools",
          # read button (does not work)
          tags$button(
            type = "button",
            class = "btn btn-box-tool",
            `data-toggle` = "tooltip",
            title = "Mark as read",
            tags$i(class = "fa fa-circle-o")
          ),
          # toggle button
          tags$button(
            type = "button",
            class = "btn btn-box-tool",
            `data-widget` = "collapse",
            tags$i(class = "fa fa-minus")
          )
        )
      ),
      ## Box body ##
      tags$div(
        class = "box-body",
        # publication screenshot
        # if (is.null(screenshot)) {
        #   # show a default image if nothing is uploaded
        #   # by the user
        #   tags$img(class = "img-responsive pad",
        #            src = "text-lines.svg",
        #            style = "height: 200px; display: block;
        #                            margin-left: auto; margin-right: auto;")
        # } else {
          # otherwise display the image provided by the user
        imageOutput(paste0("screenshot", box_index), width = "auto", height = "auto"),
        #},
        # publication abstract
        tags$ul(class = "nav nav-stacked",
                tags$li(
                  tags$a(
                    `data-toggle` = "collapse", `aria-expanded` = "true",
                    href = paste0("#collapse", box_index),
                    tags$p(class = "text-center", "Abstract")
                  ),
                  tags$div(
                    id = paste0("collapse", box_index), class = "panel-collapse collapse in",
                    tags$div(class = "body",
                             abstract
                    )
                  )
                )
        ),
        tags$br(),
        tags$br(),
        # pubmed link
        tags$button(
          type = "button", class = "btn btn-danger btn-xs",
          tags$i(class = "fa fa-info", tags$a(href = pubmed_link, target = "_blank", "Pubmed"))
        )
      ),
      ## box footer ##
      tags$div(class = "box-footer")
    )
  )
}