R/juicyTable.R

In elo2zero/juicystat.vis: Html widgets for juicystat

#' @import htmltools
NULL

#' Juicystable
#'
#' Juicystable
#' @examples
#' juicyTable( head(iris) )
#' @export
juicyTable <- function(data){
  data <- oddsandsods::prettyNames(data)
  thead_elem <-
    lapply( colnames(data) , function(colname)
      withTags( th( colname ) )
    )

  tbody_elem <-
    apply(data, 1, function(row)
      withTags(
        tr(
          lapply( row , td )
        )
      )
    )

  as.character(
    withTags(
      table(class="simple",
            thead( tr( thead_elem) ),
            tbody(tbody_elem)
      )
    )
  )
}