Skip to contents

Add one or more rows to the header where each label spans all columns (all cells merged into one). Useful for adding titles or subtitles above the column headers.

Usage

add_header_lines(x, values = character(0), top = TRUE)

Arguments

x

a 'flextable' object, see flextable-package to learn how to create 'flextable' object.

values

a character vector or a call to as_paragraph() to get formated content, each element will be added as a new row.

top

should the row be inserted at the top or the bottom. Default to TRUE.

Examples

# ex 1----
ft_1 <- flextable(head(iris))
ft_1 <- add_header_lines(ft_1, values = "blah blah")
ft_1 <- add_header_lines(ft_1, values = c("blah 1", "blah 2"))
ft_1 <- autofit(ft_1)
ft_1

blah 1

blah 2

blah blah

Sepal.Length

Sepal.Width

Petal.Length

Petal.Width

Species

5.1

3.5

1.4

0.2

setosa

4.9

3.0

1.4

0.2

setosa

4.7

3.2

1.3

0.2

setosa

4.6

3.1

1.5

0.2

setosa

5.0

3.6

1.4

0.2

setosa

5.4

3.9

1.7

0.4

setosa

# ex 2---- ft01 <- fp_text_default(color = "red") ft02 <- fp_text_default(color = "orange") ref <- c("(1)", "(2)") pars <- as_paragraph( as_chunk(ref, props = ft02), " ", as_chunk(rep("My tailor is rich", length(ref)), props = ft01) ) ft_2 <- flextable(head(mtcars)) ft_2 <- add_header_lines(ft_2, values = pars, top = FALSE) ft_2 <- add_header_lines(ft_2, values = ref, top = TRUE) ft_2 <- add_footer_lines(ft_2, values = "blah", top = TRUE) ft_2 <- add_footer_lines(ft_2, values = pars, top = TRUE) ft_2 <- add_footer_lines(ft_2, values = ref, top = FALSE) ft_2 <- autofit(ft_2) ft_2

(1)

(2)

mpg

cyl

disp

hp

drat

wt

qsec

vs

am

gear

carb

(1) My tailor is rich

(2) My tailor is rich

21.0

6

160

110

3.90

2.620

16.46

0

1

4

4

21.0

6

160

110

3.90

2.875

17.02

0

1

4

4

22.8

4

108

93

3.85

2.320

18.61

1

1

4

1

21.4

6

258

110

3.08

3.215

19.44

1

0

3

1

18.7

8

360

175

3.15

3.440

17.02

0

0

3

2

18.1

6

225

105

2.76

3.460

20.22

1

0

3

1

(1) My tailor is rich

(2) My tailor is rich

blah

(1)

(2)