Format image paths as images in a flextable.
colformat_image(
x,
i = NULL,
j = NULL,
width,
height,
na_str = get_flextable_defaults()$na_str,
nan_str = get_flextable_defaults()$nan_str,
prefix = "",
suffix = ""
)
Other cells formatters:
colformat_char()
,
colformat_date()
,
colformat_datetime()
,
colformat_double()
,
colformat_int()
,
colformat_lgl()
,
colformat_num()
,
set_formatter()
img.file <- file.path(R.home("doc"), "html", "logo.jpg")
dat <- head(iris)
dat$Species <- as.character(dat$Species)
dat[c(1, 3, 5), "Species"] <- img.file
myft <- flextable(dat)
myft <- colformat_image(
myft,
i = c(1, 3, 5),
j = "Species", width = .20, height = .15
)
ft <- autofit(myft)
ft
Sepal.Length
Sepal.Width
Petal.Length
Petal.Width
Species
5.1
3.5
1.4
0.2

4.9
3.0
1.4
0.2
setosa
4.7
3.2
1.3
0.2

4.6
3.1
1.5
0.2
setosa
5.0
3.6
1.4
0.2

5.4
3.9
1.7
0.4
setosa