R/html_cell.R

In NicolasJBM/writer: Functions and interfaces to support academic writing with R

#' Write html code for a cell
#' @param width Integer. relative width of the cell.
#' @return Character. html cell.
#' @export


html_cell <- function(width = 1){
  cell <- paste0(
    '<div style="flex: ', width, '; margin:1%; padding: 1%; background-color: white; border: solid 1px white; color:black; text-align: left; vertical-align: top;">\n\n\n</div>'
  )
  return(cell)
}