Create flextable from data.frame and try to fit the result into layout's placeholder.

phl_adjust_table(x, olay, id, method = c("all", "height"))

Arguments

x

data.frame.

olay

officer layout created using phl_layout.

id

of placeholder in olay.

method

if 'all' (default) fits both the width and height. If 'height' fits only height.

Value

A flextable object, which should fit into the layout's placeholder.

The result should be ready to pass it into phl_with_flextable.

Examples

lay <- lay_new(matrix(1:4,nc=2),widths=c(3,2),heights=c(2,1)) lay2 <- lay_new(matrix(1:3)) lay3 <- lay_bind_col(lay,lay2, widths=c(3,1)) offLayout <- phl_layout(lay3) x <- tail(iris, 10)[,c(1,5)] phl_adjust_table(x, offLayout, 1)
#> type: flextable object. #> col_keys: `Sepal.Length`, `Species` #> header has 1 row(s) #> body has 10 row(s) #> original dataset sample: #> Sepal.Length Species #> 141 6.7 virginica #> 142 6.9 virginica #> 143 5.8 virginica #> 144 6.8 virginica #> 145 6.7 virginica
phl_adjust_table(x, offLayout, 2)
#> type: flextable object. #> col_keys: `Sepal.Length`, `Species` #> header has 1 row(s) #> body has 10 row(s) #> original dataset sample: #> Sepal.Length Species #> 141 6.7 virginica #> 142 6.9 virginica #> 143 5.8 virginica #> 144 6.8 virginica #> 145 6.7 virginica