oh...
tab <- pivotr(diamonds, cvars = c("clarity", "cut", "color"), nvar = "price", fun = "mean") %>%
dtab(format="heat")

The documentation is at ?dtab.pivotr
## S3 method for class 'pivotr'
dtab(
object,
format = "none",
perc = FALSE,
dec = 3,
searchCols = NULL,
order = NULL,
pageLength = NULL,
...
)
format
Show Color bar ("color_bar"), Heat map ("heat"), or None ("none")