make blank columns as transparent

blank columns are set as transparent. This is a shortcut function that will delete top and bottom borders, change background color to transparent and display empty content.

empty_blanks(x)

Arguments

x	a flextable object

See also

Other sugar functions for table style: align(), bg(), bold(), color(), fontsize(), font(), highlight(), italic(), line_spacing(), padding(), rotate(), valign()

Examples

typology <- data.frame(
  col_keys = c( "Sepal.Length", "Sepal.Width", "Petal.Length",
                "Petal.Width", "Species" ),
  what = c("Sepal", "Sepal", "Petal", "Petal", " "),
  measure = c("Length", "Width", "Length", "Width", "Species"),
  stringsAsFactors = FALSE )
typology
#>       col_keys  what measure
#> 1 Sepal.Length Sepal  Length
#> 2  Sepal.Width Sepal   Width
#> 3 Petal.Length Petal  Length
#> 4  Petal.Width Petal   Width
#> 5      Species       Species

ftab <- flextable(head(iris), col_keys = c("Species",
  "break1", "Sepal.Length", "Sepal.Width",
  "break2", "Petal.Length", "Petal.Width") )
ftab <- set_header_df(ftab, mapping = typology, key = "col_keys" )
ftab <- merge_h(ftab, part = "header")
ftab <- theme_vanilla(ftab)
ftab <- empty_blanks(ftab)
ftab <- width(ftab, j = c(2, 5), width = .1 )
ftab
#> a flextable object.
#> col_keys: `Species`, `break1`, `Sepal.Length`, `Sepal.Width`, `break2`, `Petal.Length`, `Petal.Width` 
#> header has 2 row(s) 
#> body has 6 row(s) 
#> original dataset sample: 
#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species break1 break2
#> 1          5.1         3.5          1.4         0.2  setosa              
#> 2          4.9         3.0          1.4         0.2  setosa              
#> 3          4.7         3.2          1.3         0.2  setosa              
#> 4          4.6         3.1          1.5         0.2  setosa              
#> 5          5.0         3.6          1.4         0.2  setosa