---
title: "Introduction to Huxtable"
author: "David Hugh-Jones"
date: "`r Sys.Date()`"
output:
  pdf_document:
    toc: yes
    toc_depth: '2'
    latex_engine: xelatex
  html_document:
    toc: yes
    toc_depth: 2
linkcolor: olive
urlcolor: olive
vignette: >
  %\VignetteIndexEntry{Introduction to huxtable}     
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8} 
header-includes:
  - \usepackage{placeins}
---


```{r setup, echo = FALSE, warning = FALSE, message = FALSE}

library(knitr)
library(dplyr)
library(huxtable)
options(
#        huxtable.latex_use_fontspec  = TRUE, #!CRAN
        huxtable.knit_print_df       = FALSE, 
        huxtable.add_colnames        = TRUE  # needed when run by testthat
      )

is_latex <- guess_knitr_output_format() == "latex"
# # is_latex <- TRUE                                                 # !CRAN
# knitr::knit_hooks$set(                                             # !CRAN
#   barrier = function(before, options, envir) {                     # !CRAN
#     if (! before && is_latex) knitr::asis_output("\\FloatBarrier") # !CRAN
#   }                                                                # !CRAN
# )                                                                  # !CRAN
# 
# if (is_latex) knitr::opts_chunk$set(barrier = TRUE)                # !CRAN 

```

\newpage 

```{r, echo = FALSE}
huxtable::hux_logo(latex = is_latex, html = ! is_latex)
```


# Introduction

## About this document

This is the introductory vignette for the R package 'huxtable', version `r packageVersion("huxtable")`. A current
version is available on the web in [HTML](https://hughjonesd.github.io/huxtable/huxtable.html) or 
[PDF](https://hughjonesd.github.io/huxtable/huxtable.pdf) format.

## Huxtable

Huxtable is a package for creating *text tables*. It is powerful, but easy to use. Huxtable's
features include:

* Export to LaTeX, HTML, Microsoft Word, Microsoft Excel, Microsoft Powerpoint, 
  RTF and Markdown
* Easy integration with knitr and rmarkdown documents
* Formatted on-screen display
* Multirow and multicolumn cells
* Fine-grained control over cell background, spacing, alignment, size and 
  borders
* Control over text font, style, size, colour, alignment, number format and 
  rotation
* Table manipulation using standard R subsetting, or dplyr functions like 
  `filter` and `select`
* Easy conditional formatting based on table contents
* Quick table themes
* Automatic creation of regression output tables with the `huxreg` function

We will cover many of these features below.

## Installation

You can install huxtable from within R:


```{r, eval = FALSE}
install.packages("huxtable")
```


# Getting started

A huxtable is an R object representing a table of text. You already know that R
can represent a table of data in a data frame. For example, if `mydata` is a
data frame, then `mydata[1, 2]` represents the the data in row 1, column 2.

A huxtable is just a data frame with some extra properties. So, if `myhux` is a
huxtable, then `myhux[1, 2]` represents the data in row 1 column 2, as before.
But this cell will also have some other properties - for example, the font size
of the text, or the colour of the cell border.

To create a huxtable, use the function `huxtable`, or `hux` for short. Let's
suppose we want to print a table of jams that we have for sale. There are two
columns, representing the kind of jam, and its price:


```{r}
library(huxtable)
 
jams <- hux(
        Type  = c("Strawberry", "Raspberry", "Plum"),
        Price = c(1.90, 2.10, 1.80)
      )
```


You can convert a data frame to a huxtable with `as_hux`.


```{r}
data(mtcars)
car_ht <- as_hux(mtcars)
```


If you look at a huxtable in R, it will print out a simple representation of the
data. Notice that we've added the column names to the data. We're
going to print them out, so they need to be part of the actual table. The data
will start on row 2 of the huxtable, and the column names will be row 1.


```{r, results = "markup"}
print_screen(jams)     # on the R command line, you can just type "jams"
```


To print a huxtable as LaTeX or HTML, just call `print_latex` or `print_html`. 
In knitr documents, like this one, you can simply evaluate the huxtable:


```{r}
jams
```


## Huxtable properties

The default output is a plain table. Let's make it smarter. We'll:

* make the table headings bold;
* draw a border under the first row;
* tweak the table width and spacing;
* change the number formatting;
* and add a caption.


```{r}

library(dplyr) 

jams %>% 
      set_all_padding(4) %>% 
      set_outer_padding(0) %>% 
      set_number_format(2) %>% 
      set_bold(row = 1, col = everywhere) %>% 
      set_bottom_border(row = 1, col = everywhere) %>% 
      set_width(0.4) %>% 
      set_caption("Pots of jam for sale")
  
```


All these functions set one or more *properties* on the huxtable. That's why
they all start with `set_...`. The functions return the modified huxtable. So
you can chain them together using the [magrittr](https://magrittr.tidyverse.org/)
pipe. Really, these functions evaluate to:


```{r, eval = FALSE}
jams <- set_all_padding(jams, 4)
jams <- set_outer_padding(jam, 0)
```

and so on. Let's go through them line by line.

* `jams %>% set_all_padding(10)` sets four properties on every cell of the 
  huxtable: the `left_padding`, `right_padding`, `top_padding` and `bottom_padding`
  property. We could have called `set_left_padding(10)` and so on, but this is
  a convenient shortcut. Cell padding is the amount of space on each side of a
  table cell. If you're familiar with HTML, you'll know how this works. 
* `set_outer_padding(jams, 0)` sets the padding around the outside of the huxtable
  to 0. Again, this is a shortcut. It's like setting `left_padding` on all the
  cells on the left side of the huxtable, `top_padding` on the top, and so on.
* `set_number_format(jams, 2)` changes how numbers within cells are displayed.
  It will work not just on numeric data, but on any numbers found in a cell.
  Setting the `number_format` property to 2 means that numbers will have
  2 decimal places.
* `set_bold(jams, row = 1, col = everywhere)` sets the `bold` property. This 
  time we don't set
  it for all cells -- only on cells in row **1** and in all columns, i.e.
  `everywhere`. `set_bold()` has a default value of `TRUE`, so the call is
  just short for `set_bold(jams, row = 1, col = everywhere, TRUE)`.
* `set_bottom_border(jams, row = 1, col = everywhere)` sets the `bottom_border`
  property.
  Again it's set for cells in row 1 and all columns. The `bottom_border` property
  is the width of the border in points. Here, we've set it to its default value
  of 0.4.
* So far, all these properties have been *cell properties*. The next line sets
  a *table property* which applies to the whole table: the width.
* The last line, `set_caption(...)`, sets another *table property*: the 
  table caption.

By the way, I've used tidyverse style to set these properties, chaining calls
together in a pipe. You can also set properties directly. Here's a set of calls
that do exactly the same as the above:


```{r}

# set all padding:
left_padding(jams) <- 4
right_padding(jams) <- 4
top_padding(jams) <- 4
bottom_padding(jams) <- 4

# set outer padding:
left_padding(jams)[1:nrow(jams), 1] <- 0
top_padding(jams)[1, 1:ncol(jams)] <- 0
right_padding(jams)[1:nrow(jams), ncol(jams)] <- 0
bottom_padding(jams)[nrow(jams), 1:ncol(jams)] <- 0

number_format(jams) <- 2
bold(jams)[1, 1:ncol(jams)] <- TRUE
bottom_border(jams)[1, 1:ncol(jams)] <- 0.4
width(jams) <- 0.4
caption(jams) <- "Pots of jam for sale"

```


This way of setting properties is the same as using functions like 
`names(x) <- c("Name 1", "Name 2", ...)` in base R. You can write


```{r, eval = FALSE}
names(x)[1] <- "Name"
```


to change the first name of a vector. Similarly,
in huxtable, you can write 

```{r, eval = FALSE}
bold(jams)[1, 1:ncol(jams)] <- TRUE
```

to set the bold property on the first row of cells.

Here, the assignment style is a little more verbose than the dplyr style, and
you don't get convenient shortcuts like `everywhere`. But you can use whichever
you prefer.

To sum up, you set *cell properties* on a huxtable like this:


```{r, eval = FALSE}
ht <- set_property(ht, row = rows, col = cols, value)
```


or like this:


```{r, eval = FALSE}
ht <- set_property(ht, value)
```


where `property` is the name of the huxtable property. The first form sets
the cell property for specific rows and columns. The second form sets it for
all cells. *Table-level properties* are always set like


```{r, eval = FALSE}
ht <- set_property(ht, value)
```


since they always apply to the whole table.

As well as cell properties and table properties, there are also row properties 
and column properties. The table below shows a complete list of properties. 

```{r props, echo = FALSE}
sides <- c("left_", "right_", "top_", "bottom_")
props <- list()
props[["Cell Text"]] <- sort(c("text_color", "wrap", "bold", "italic", "font",
      "font_size", "na_string", "escape_contents", "markdown", "number_format",
      "rotation"))

props[["Cell"]] <- sort(c(
        "align", "valign", "rowspan", "colspan", "background_color", 
        paste0(sides, "border"), 
        paste0(sides, "border_color"), 
        paste0(sides, "border_style"), 
        paste0(sides, "padding")
      ))

props[["Row"]]    <- c("row_height", "header_rows")
props[["Column"]] <- c("col_width", "header_cols")
props[["Table"]]  <- sort(c("width", "height", "position", "caption", 
  "caption_pos", "caption_width", "tabular_environment", "table_environment", 
  "label", "latex_float"))

maxl <- max(sapply(props, length))
props <- lapply(props, function(x) c(x, rep("", maxl - length(x))))

prop_hux <- hux(as.data.frame(props, check.names = FALSE)) %>% 
      set_font_size(10)                                    %>% 
      set_header_rows(1, TRUE)                             %>% 
      set_width(0.9)                                       %>% 
      set_tb_padding(2)                                    %>% 
      set_caption("Huxtable properties")                   %>% 
      set_label("tab:props")                               %>% 
      set_col_width(c(.2, .25, .15, .15, .25))             %>% 
      theme_bright()                                      

prop_hux
```

## Selecting rows and columns

When you call `set_property(ht, row = rows, col = cols, value)`, you can specify
`rows` and `cols` in several different ways. (We'll skip the argument names from
now on.)

* You can use numbers:

  ```{r, eval = FALSE}
  # Set the italic property on row 1, column 1:
  jams %>% set_italic(1, 1) 
  ```

* Or use logical indices:

  ```{r, eval = FALSE}
  # Set the italic property on column 1 of every row matching "berry":
  is_berry <- grepl("berry", jams$Type)
  jams %>% set_italic(is_berry, 1) 
  ```

* Or use characters for column names:

  ```{r, eval = FALSE}
  # Set the italic property on row 1 of the column named "Type":
  jams %>% set_italic(1, "Type")
  ```

These methods should all be familiar from base R. They are just the same as
you can use for subsetting a data frame. In fact, you can use the same methods
for assignment style:

```{r, eval = FALSE}
italic(jams)[1, "Type"] <- TRUE
# the same as:
jams <- jams %>% set_italic(1, "Type")
```

In `set_` functions, there are some extra methods:

* You can use [tidyselect](https://r4ds.had.co.nz/transform.html#select) 
functions like `matches()` or `starts_with()` to select columns:

  ```{r, eval = FALSE}
  # Set the italic property on row 1 of every column whose name starts with "T":
  jams %>% 
        set_italic(1, starts_with("T"))
  ```

There are also some huxtable-specific selectors.

* `everywhere` sets a property on all rows, or all columns.

  ```{r, eval = FALSE}
  # Set the italic property on row 1 of all columns:
  jams %>% set_italic(1, everywhere)
  
  # Set the italic property on all rows of column 1:
  jams %>% set_italic(everywhere, 1)
  ```

* `final(n)` sets a property on the last `n` rows or columns.

  ```{r, eval = FALSE}
  
  jams %>% set_italic(final(2), everywhere)
  # same as:
  jams %>% set_italic(3:4, 1:2)
  ```


# Editing huxtables


## Formatting cell text

Here are some useful ways to change how cells are displayed.

* The `bold` property makes a whole cell bold, and the `italic` property
  makes a cell italic. We've seen these.
* The `text_color` property changes the color of text.


  ```{r}
  jams %>% 
        set_text_color(2:3, 1, "purple")
  ```


  You can use any valid R color name, or an HTML hex color like `#FF0000`.

* The `background_color` property changes background color. 

  Here's one way to apply a subtle horizontal stripe to a table:


  ```{r}
  jams %>% 
        set_background_color(evens, everywhere, "grey95")
  ```


  This uses another huxtable-specific shortcut: `evens` specifies even-numbered
  rows or columns. (And `odds` specifies odd-numbered rows or columns.)

* If you want to format selected text within cells, you can use 
  [markdown](https://commonmark.org/help/) by setting the `markdown` property.

  The `set_markdown_contents()` sets the markdown property and the cell contents
  together:


  ```{r}
  jams %>% 
        set_markdown_contents(1, 1, "*Type* of jam") %>% 
        set_markdown_contents(1, 2, "*Price* of jam") %>% 
        set_markdown_contents(3, 2, "~~2.10~~ **Sale!** 1.50")
  ```
* By default, huxtable will escape special characters in your cells. To display
  special characters such as LaTeX maths, set the `escape_contents` property to
  `FALSE`:
  
  ```{r}
  new_row <- if (is_latex) c("Imaginary jam", "$e^{-i\\pi}$") else 
               c("Copyright jam", "&copy;")
  
  jams %>%
        insert_row(new_row, after = 4) %>%
        set_escape_contents(5, 2, FALSE)
 
  ```

## Aligning text and numbers

You can align cells to the left, right or center using the `align` property:

  ```{r}
  jams %>%
        set_align(1, everywhere, "center")
  ```

You may want to align numbers so that the decimal points line up.
To do this, set `align` to the character representing the decimal point
in your locale -- typically `"."` or `","`.

  ```{r}
  numbers <- hux(Numbers = c(100, 3.14, 0.0002))
  numbers %>%
        set_align(-1, 1, ".") %>%
        theme_basic()
  ```

This does not always give perfect results. For LaTeX output, one approach is to
align these cells using the `siunitx` TeX package. You can do this by
setting `options(huxtable.latex_siunitx_align = TRUE)`. 

## Borders

Each huxtable cell has 4 borders, on the left, top, right and bottom. These
borders are "collapsed", in CSS parlance: row 1's bottom border is row 2's
top border, and setting one automatically sets the other. Each border
has a thickness, a style ("solid", "double", "dotted" or "dashed") and a colour.


To set all these properties together, you can use a `brdr()` object:


```{r}
jams %>% 
      set_right_border(everywhere, 1, brdr(3, "double", "grey"))
```


Or, you can set each component individually:


```{r}
jams %>% 
      set_right_border(everywhere, 1, 3) %>% 
      set_right_border_style(everywhere, 1, "double") %>% 
      set_right_border_color(everywhere, 1, "grey")
```



To set all the borders around a cell, use `set_all_borders()`. Here's a 
corporate look for our jams:


```{r}
jams %>% 
      set_background_color(evens, everywhere, "grey80") %>% 
      set_background_color(odds, everywhere, "grey90") %>% 
      set_all_borders(brdr(0.4, "solid", "white")) %>% 
      set_outer_padding(4)
```

Other shortcuts include:

* `set_tb_borders()` to set top and bottom borders;
* `set_lr_borders()` to set left and right borders;
* `set_outer_borders()` to set borders around a group of cells.

Not all output formats handle all kinds of borders equally well. In particular,
LaTeX currently only handles "solid" and "double" borders -- not "dotted" or
"dashed".


## Changing and adding content

You can treat a huxtable just like a data frame. For example, here's how to
change the text in a particular cell:


```{r, eval = FALSE}
jams[3, 1] <- "Snozberry"
```


You can change a whole column like this:


```{r, eval = FALSE}
# Summer sale!
jams$Price <- c("Price", 1.50, 1.60, 1.50)
```


Notice that since the "Price" label is part of the huxtable, I had to include
it in the data.

Or you can add a new column the same way.


```{r}
options(error=recover)
jams$Sugar <- c("Sugar content", "40%", "50%", "30%")
jams
```


Notice that the new column has the same bold heading, borders and number formatting
as the other two. When you add data to a huxtable, by default, it copies cell 
properties over from the nearest neighbour.

Similarly, you can add a new row to a huxtable with `rbind`, and cell properties
will be copied from the previous row:

```{r}
rbind(jams, c("Gooseberry", 2.1, "55%"))
```


Sometimes, you would like to insert rows or columns in the middle of
a table. You can do this with rbind, but it is not very convenient:


```{r}
best_before <- c("Best before", c("Aug 2022", "Sept 2022", "June 2022"))

cbind(jams[, 1], best_before, jams[, -1])
```


Huxtable has a useful shortcut called `insert_column()` for this.


```{r}
jams %>% 
      insert_column(best_before, after = "Type") %>% 
      set_number_format(everywhere, 2, 0) # correct the formatting for dates

```


The `after` argument says where the second object should be inserted. It can
be a column name or number. There's also an `insert_row()` function.

If you prefer using dplyr to edit contents, many dplyr functions work with
huxtable.


```{r}
jams %>% 
      mutate(
        Type = toupper(Type)
      ) %>% 
      select(Type, Price)
```


Notice that changing the `Type` column changed the whole column,
including the heading. If you want to work with the underlying data, it's often
best to do this before creating a huxtable. For example, here's how you might
create a `jams` table ordered by price:


```{r}
jams_data <- data.frame(
        Type = c("Strawberry", "Raspberry", "Plum"),
        Price = c(1.90, 2.10, 1.80)
      )

jams_ordered <- jams_data %>% 
      arrange(Price) %>% 
      as_hux() %>% 
      set_bold(1, everywhere) # et cetera...
```


It's easier to arrange by `Price` before you add the "Price" heading to the 
column. Alternatively, you can use `as_hux(..., add_colnames = FALSE)`, 
and add column names later with the `add_colnames()` function.

```{r, eval = FALSE}
# Same result as above

jams_data %>% 
      as_hux(add_colnames = FALSE) %>% 
      arrange(Price) %>% 
      add_colnames()
```


# Changing the layout

When we have larger tables, we may need to control the layout more carefully.
Here's selected rows of the `iris` dataset:


```{r}
iris_hux <- iris %>% 
      group_by(Species) %>% 
      select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% 
      slice(1:5) %>% 
      as_hux() %>%
      theme_basic() %>% 
      set_tb_padding(2)

iris_hux      
```


Here I've used `theme_basic()` to quickly provide an acceptable look. We'll
see more about themes later.

The column names are rather long. We could use an extra header row to shorten
them.


```{r}
iris_hux <- iris_hux %>% 
  set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% 
  insert_row("", "Sepal", "", "Petal", "", after = 0) %>% 
  merge_cells(1, 2:3) %>% 
  merge_cells(1, 4:5) %>% 
  set_align(1, everywhere, "center") %>% 
  set_tb_padding(1, everywhere, 0) %>% 
  set_bold(1, everywhere)
  
iris_hux
```


Let's take this piece by piece.

* `set_contents()` is a shortcut to change contents, for use within pipes.
  It's equivalent to saying `iris_hux[1, 2:5] <- c("Length", ...)`.
* `insert_row()` inserts a new row at the top.
* `merge_cells(1, 2:3)` merges the cells in row 1, columns 2 and 3. These
  now become a single cell. If you know HTML, this is equivalent to setting
  the `colspan` of column 2 to 2.
* `merge_cells(1, 4:5)` does the same for row 1, columns 4 and 5.
* Lastly, `set_align()` centres all the cells in the first row and 
  `set_tb_padding()` fixes up the vertical padding, to keep these cells
  close to the row below.

This looks better, but it is rather long. (And we only used a few of the
150 rows in the `iris` data!) One solution is to reorganize your table layout.
In data management, it is a cardinal sin to have the same data in two columns,
but it can make a table easier to read.


```{r}
iris_hux_wide <- iris_hux %>% 
      set_header_rows(1:2, TRUE) %>% 
      restack_across(rows = 7) %>% 
      set_bottom_border(final(1), everywhere)

iris_hux_wide
```


This is too wide, but we'll deal with that in a second. The `restack_across()`
function reorganizes our table to fit into fewer rows (and more columns).
There's a similar `restack_down()` function which fits a table into more rows
and fewer columns. To understand these, a bit of color will help:


```{r}
lego_hux <- as_hux(matrix(1:16, 4, 4)) %>% 
      set_background_color(1:2, 1:2, "red") %>% 
      set_background_color(1:2, 3:4, "yellow") %>% 
      set_background_color(3:4, 1:2, "darkgreen") %>% 
      set_background_color(3:4, 3:4, "blue") %>% 
      set_text_color(3:4, 1:4, "white") %>% 
      set_all_borders(brdr(2, "solid", "white"))

lego_hux %>% set_caption("Original table")

lego_hux %>% 
      restack_across(rows = 2) %>% 
      set_caption("Restacked across")

lego_hux %>% 
      restack_down(cols = 2) %>% 
      set_caption("Restacked down")
```



## Table position and column width

Our new `iris` huxtable is now shorter, but it's too wide. We can control
this with the table-level `width` property. We can also set the
width of individual columns with the *column* property `col_width`. And
we might want to have this table left-aligned on the page, using the `position`
property.

```{r}
iris_hux_wide %>% 
      set_width(0.8) %>% 
      set_font_size(8) %>% 
      set_lr_padding(2) %>% 
      set_col_width(rep(c(0.4, 0.2, 0.2, 0.2, 0.2)/3, 3)) %>% 
      set_position("left")
```


`width` and `col_width` can either be numbers, or units recognized by HTML or
LaTeX. It's best to specify `col_width` as a set of numbers. These are
treated as proportions of the total table width.


```{r, echo = FALSE}
jams %>% 
      set_position("wrapright") %>% 
      set_width(0.35) %>% 
      set_caption(NA) %>% 
      set_font_size(8) %>% 
      theme_compact()
```
If you have a small table, you may want your text to wrap around it. You can do
this by specifying `"wrapleft"` or `"wrapright"` as the position. The table on the right uses `set_position("wrapright")`, `set_width(0.35)` and
the "compact" theme, which minimizes cell padding to keep the table 
small. Table wrapping works in both HTML
and LaTeX. There's no option to have text wrapped around both sides of the table.
That would just be painful for your readers. 


## Headers

You'll notice that the restacked `iris` huxtable 
repeated the header rows appropriately. For this to happen, we set the
`header_rows` property to `TRUE` on rows 1-2. This is a *row property*. 
Row properties are set like:

```{r, eval = FALSE}
set_row_property(ht, row, value)
```

By themselves, header rows are not displayed any differently. But certain themes
will display them differently. You can also style headers yourself using the
`style_headers()` function:

```{r}
iris_hux <- iris_hux %>% 
      set_header_rows(1:2, TRUE) %>% 
      set_header_cols(1, TRUE) %>% 
      style_headers(bold = TRUE, text_color = "grey40")

iris_hux
```


Here we have set the first two rows as headers, and the first column as a
a header column. `style_headers()` applies to both rows and columns. Alternatively,
use `style_header_rows()` and `style_header_cols()` to treat header rows
and columns differently. Their arguments are a list of properties and property
values.


## Splitting tables

If we haven't got room to restack, an alternative approach is to split our
original table into separate tables. We can do this with `split_across()` and
`split_down()`. These functions take a single huxtable and return a list of
huxtables. Like the `restack` functions, they take account of headers by default.

```{r}
list_of_iris <- split_across(iris_hux, c(7, 12))
list_of_iris[[1]] %>% set_caption("Setosa Irises")
list_of_iris[[2]] %>% set_caption("Versicolor Irises")
list_of_iris[[3]] %>% set_caption("Virginica Irises")
```


# Themes

Huxtable comes with some predefined themes for formatting. The table of
huxtable properties above used `theme_bright()`.
Other options include `theme_basic()` and the randomized `theme_mondrian()`:

```{r}
theme_mondrian(jams)
```

The ["themes" vignette](themes.html) shows all the available themes. Themes
simply apply a set of styles to the huxtable.


# Conditional formatting

When you want to apply different formatting to different cells, you can use 
*mapping functions*.

For example, here's another way to create a striped table:

```{r}
jams %>% map_background_color(by_rows("grey90", "grey95"))
```

Or, we could apply a text color to our `iris` data to pick out
the lowest and highest values of each column:

```{r}

iris_hux %>% 
      map_text_color(-(1:2), -1, 
        by_colorspace("darkred", "grey50", "darkgreen", colwise = TRUE)
      )

```

`by_rows` and `by_ranges` are *mapping functions*.

* `by_rows` applies different properties to
different rows in sequence. 

* `by_colorspace` takes cell numbers as input and maps them to colors.

To use a mapping function, you write `map_property(ht, row, col, fn)`, where
`property` is the cell property you want to map. `ht` is the huxtable,
and `fn` is the mapping function starting with `by`. `row` and `col` are optional row and column
specifiers, just the same as for `set_xxx`.

Here's one more example. To set properties for cells that match a string, use
the `by_regex`  function.

```{r}
jams %>% map_text_color(by_regex("berry" = "red4", "navy"))
```

There is more information about mapping functions in
[this article](https://hughjonesd.github.io/reporting-data-with-huxtable-4.3.0.html).

# Output to different formats

## Pretty-printing data frames

If you load `huxtable` within a knitr document, it will automatically format 
data frames for you:


```{r, include = FALSE}
options(huxtable.knit_print_df = TRUE)
```

```{r}
head(iris)
```

If you don't want this, you can turn it off by setting the `huxtable.knit_print_df` 
option:


```{r}
options(huxtable.knit_print_df = FALSE)

head(iris) # back to normal
```


```{r, include = FALSE}
options(huxtable.knit_print_df = TRUE)
```


## Using huxtables in knitr and rmarkdown

If you use knitr and rmarkdown in RStudio, huxtable objects should automatically
display in the appropriate format (HTML, LaTeX, or RTF).

Huxtable needs some LaTeX packages for LaTeX output. The function
`report_latex_dependencies()` will print out a set of `usepackage{...}`
statements. If you use Sweave or knitr without rmarkdown, you can use this
function in your LaTeX preamble, to load the packages you need.

If you want to create Word or Powerpoint documents, install the [flextable
package](https://cran.r-project.org/package=flextable) from CRAN. Huxtables can
then be automatically printed in Word documents. Or you can convert them to
`flextable` objects and include them in Word or Powerpoint documents.
Similarly, to print tables in an Excel spreadsheet, install the [openxlsx
package](https://cran.r-project.org/package=openxlsx) See `?as_flextable` and
`?as_Workbook` for more details.

You can print a huxtable on screen by typing its name at the command line.
Borders, column and row spans and cell alignment are shown. If the
[crayon](https://cran.r-project.org/package=crayon) package is installed, and
your terminal or R IDE supports it, border, text and background colours are also
displayed.


```{r, results = "markup"}
print_screen(jams)
```


If you need to output to another format, file an 
[issue request](https://github.com/hughjonesd/huxtable/) on Github. 


## Quick output commands

Sometimes you quickly want to get your data into a document. To
do this you can use huxtable functions starting with `quick_`:

* `quick_pdf()` creates a PDF.
* `quick_docx()` creates a Word document.
* `quick_html()` creates a HTML web page.
* `quick_xlsx()` creates an Excel spreadsheet.
* `quick_pptx()` creates a Powerpoint presentation.
* `quick_rtf()` creates an RTF document.
* `quick_latex()` creates a LaTeX file.

These are called with one or more huxtable objects (or objects which can be
turned into a huxtable, such as data frames). A new document of the appropriate
type will be created and opened. By default the file will be in the current
directory, under a name like e.g. `huxtable-output.pdf`. If the file already
exists, you'll be asked for confirmation.


```{r, eval = FALSE}
quick_pdf(iris_hux) 
quick_pdf(iris_hux, file = "iris.pdf")
```

## Useful output options

See `?"huxtable-options"` for the full list of huxtable options. In particular:

* `options("huxtable.knit_print_df")`: if `TRUE`, prints data frames using
  huxtable.
* `options("huxtable.latex_use_fontspec")`: if `TRUE`, uses the LaTeX
  "fontspec" package which lets you use the same fonts in TeX and HTML. You
  will need to use the xetex or xelatex engine for output.
* `options("huxtable.long_minus")`. If `TRUE`, prints long minus signs for 
  numbers, e.g. −3.5 rather than -3.5.
* `options("huxtable.latex_siunitx_align")`. If `TRUE`, uses the \\tablenum 
  macro from the "siunitx" package to align numbers by decimal point.


# Creating a regression table

A common reason to print a table is to report statistical results. The `huxreg()`
function creates a table from a set of regressions.


```{r}

lm1 <- lm(mpg ~ cyl, mtcars)
lm2 <- lm(mpg ~ hp, mtcars)
lm3 <- lm(mpg ~ cyl + hp, mtcars)

huxreg(lm1, lm2, lm3)
```


For more information see the ["huxreg" vignette](huxreg.html).


# Getting more information

Huxtable has a complete set of help files. These are installed with the
package, or [readable online](https://hughjonesd.github.io/huxtable/reference/).

If you run into trouble, consult `?"huxtable-FAQ"`. It will help you to file
a useful bug report or seek help. 
The [NEWS file](https://cran.r-project.org/package=huxtable/news/news.html) lists
changes in recent versions. The 
[huxtable website](https://hughjonesd.github.io/huxtable/) has links to all this 
information and more.
