RetroSearch Browse

Home - News ( United States | United Kingdom | Italy | Germany ) - Football scores

Showing content from https://davidgohel.github.io/flextable/reference/add_header_lines.html below:

Add labels as new rows in the header — add_header_lines • flextable

Add labels as new rows in the header, where all columns are merged.

This is a sugar function to be used when you need to add labels in the header, most of the time it will be used to adding titles on the top rows of the flextable.

Usage

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

Arguments

x: a 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)

RetroSearch is an open source project built by @garambo | Open a GitHub Issue

Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo

HTML: 3.2 | Encoding: UTF-8 | Version: 0.7.4