dqshiny (version 0.0.3)

dq_htmltable: Create a HTML table containing the given list of elements

Description

Creates a HTML table containing the given list of elements. Every element of the list should be a vector of the same length to ensure correct design. The align parameter can be either a character, which will result in all cells having the same alignment, a character vector showing the alignment for every column or a list of character vectors specifying the alignment of every cell.

Usage

dq_htmltable(elements, id = NULL, align = "left",
  head_align = "center", borders = "none")

Arguments

elements

List of elements to show in the list, each element of the list should be a row of the table. Can also be a data.frame with names used as header.

id

Optional, character specifying the elements id.

align

Optional, character (vector) or list of characters showing the alignment of the table for each column/cell, can be one of "left", "right" or "center", defaults to "left", can be abbreviated.

head_align

Optional character vector of header alignments, defaults to "center", can be abbreviated.

borders

Optional character specifying the desired borders to show. Can be either a single character vector of length one with one of c("inner", "outer", "all", "tex") or a list of character vectors specifying all borders by hand. Possible values are "top", "right", "bottom", "left". The first entry of the list will be used for the header row if given.

Value

HTML table

Examples

# NOT RUN {
## Only run examples in interactive R sessions
if (interactive()) {

library(shiny)
lets <- data.frame(lower = letters[1:5], UPPER = LETTERS[1:5])
shinyApp(
  ui = fluidPage(
    dq_space(), fluidRow(
      column(3, dq_htmltable(
        list(list("Description", icon("hashtag")),
             list("Value", textInput("value", NULL)),
             list("Result", textOutput("result"))),
        borders = "inner"
      )),
      column(2, dq_htmltable(lets, borders = "outer")),
      column(3, dq_htmltable(
        list(c("Left", "Center", "Right"), c("Center", "Right", "Left")),
        align = list(c("LEFT", "center", "right"), c("c", "R", "l")),
        borders = "all"
      )),
      column(2, dq_htmltable(lets, borders = "tex")),
      column(2, dq_htmltable(lets, borders = list(
        c("top left", "bottom right"), # header
        c("", ""), c("", ""), c("", ""), c("", ""), c("bottom", "bottom")
      )))
    )),
  server = function(input, output) {
    output$result <- renderText(input$value)
  }
)

}
# }