Get style options for object

A wrap around the base::attr() that retrieves the style attribute used by htmlTable() (htmlTable.style).

getHtmlTableStyle(x)

Arguments

x

The object intended for htmlTable().

Value

A list if the attribute exists, otherwise NULL

Examples

library(magrittr)

mx <- matrix(1:4, ncol = 2)
colnames(mx) <- LETTERS[1:2]
mx %>%
  addHtmlTableStyle(align = "l|r") %>%
  getHtmlTableStyle()
#> $align
#> [1] "l|r"
#> 
#> $align.header
#> [1] "c"
#> 
#> $col.rgroup
#> [1] "none"
#> 
#> $col.columns
#> [1] "none"
#> 
#> $padding.rgroup
#> [1] "&nbsp;&nbsp;"
#> 
#> $padding.tspanner
#> [1] ""
#> 
#> $spacer.celltype
#> [1] "single_empty"
#> 
#> $spacer.css.cgroup.bottom.border
#> [1] "none"
#> 
#> $spacer.css
#> [1] ""
#> 
#> $spacer.content
#> [1] "&nbsp;"
#> 
#> $css.rgroup
#> [1] "font-weight: 900;"
#> 
#> $css.rgroup.sep
#> [1] ""
#> 
#> $css.tspanner
#> [1] "font-weight: 900; text-align: left;"
#> 
#> $css.tspanner.sep
#> [1] "border-top: 1px solid #BEBEBE;"
#> 
#> $css.total
#> [1] "border-top: 1px solid #BEBEBE; font-weight: 900;"
#> 
#> $css.cell
#> [1] ""
#> 
#> $css.cgroup
#> [1] ""
#> 
#> $css.header
#> [1] "font-weight: 900"
#> 
#> $css.header.border_bottom
#> [1] "border-bottom: 1px solid grey"
#> 
#> $css.class
#> [1] "gmisc_table"
#> 
#> $css.table
#> [1] "margin-top: 1em; margin-bottom: 1em;"
#> 
#> $pos.rowlabel
#> [1] "bottom"
#> 
#> $pos.caption
#> [1] "top"
#>