R/format-html-other.R

In memisc: Management of Survey Data and Presentation of Analysis Results

format_html.descriptions <- function(x,
                                     toprule=2,midrule=1,bottomrule=2,
                                     margin="2ex auto",
                                     ...){

  padleft <- c("padding-left"="0.3em")
  padright <- c("padding-right"="0.3em")
  toprule <- c("border-top"=paste0(midrule,"px solid"))
  bottomrule <- c("border-bottom"=paste0(midrule,"px solid"))
  midrule_above <- c("border-top"=paste0(midrule,"px solid"))
  midrule <- c("border-bottom"=paste0(midrule,"px solid"))
  align.right <- c("text-align"="right")  
  align.left <- c("text-align"="left")  
  align.center <- c("text-align"="center")
  row_style <- c("border-style"="none")
  table_style <- c("border-collapse"="collapse" ,"border-style"="none")


  tab <- cbind(
          html_td(names(x),style=css(align.left,padleft,padright),vectorize=TRUE),
          html_td(x,style=css(align.left,padright),vectorize=TRUE)
          )
  n <- nrow(tab)
  tab[n,] <- lapply(tab[n,],setStyle,bottomrule)
  
  header <- c(html_td("Variable",style=css(align.left,padleft,padright,toprule,midrule)),
              html_td("Description",style=css(align.center,padright,toprule,midrule)))
                    
  tab <- rbind(header,tab)
  ans <- apply(tab,1,html_tr,style=as.css(row_style))
  
  ans <- html_table(ans)
  
  if(length(margin))
    table_style <- c(table_style,margin=margin)
  style(ans) <- as.css(table_style)

  ans <- as.character(ans)
  return(ans)
}