Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(tidyverse)
library(pharmaRTF)
## ----huxtable_code------------------------------------------------------------
dat <- iris %>%
select(Species, everything())
ht <- huxtable::as_hux(dat, add_colnames=TRUE) %>%
huxtable::set_bold(1, 1:ncol(dat), TRUE) %>%
huxtable::set_bottom_border(1, 1:ncol(dat), 1) %>%
huxtable::set_width(1.5)
ht[1:10,]
## ----table1, eval=FALSE-------------------------------------------------------
# doc <- rtf_doc(ht, titles=list(hf_line("The Iris Dataset", bold=TRUE)))
#
# write_rtf(doc, file="table1.rtf")
#
## ----table1_img1, out.width = "800px", echo = FALSE---------------------------
knitr::include_graphics("table1_img1.png")
## ----table1_img2, out.width = "800px", echo = FALSE---------------------------
knitr::include_graphics("table1_img2.png")
## ----table2, eval = FALSE-----------------------------------------------------
# doc <- rtf_doc(ht, titles=list(hf_line("The Iris Dataset", bold=TRUE))) %>%
# set_pagesize(c(height=5, width=5)) %>%
# set_font('Times New Roman') %>%
# set_margins(c(top=2, bottom=2, left=2, right=2)) %>%
# set_font_size(7)
#
# write_rtf(doc, file="table2.rtf")
#
## ----table2_img1, out.width = "800px", echo = FALSE---------------------------
knitr::include_graphics("table2_img1.png")
## ----table3, eval = FALSE-----------------------------------------------------
# doc <- rtf_doc(ht)
# font(doc) <- 'Times New Roman'
# font_size(doc) <- 10
# doc <- add_titles(doc, hf_line("The Iris Dataset", bold=TRUE))
# doc <- add_footnotes(doc, hf_line("Note: This is a footnote!", italic=TRUE, align='left'))
#
# write_rtf(doc, file="table3.rtf")
## ----table3_img1, out.width = "800px", echo = FALSE---------------------------
knitr::include_graphics("table3_img1.png")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.