# NOT RUN {
ft_1 <- flextable(head(iris))
ft_1 <- width(ft_1, width = 1.5)
ft_1 <- height(ft_1, height = 0.75, part = "header")
ft_1 <- hrule(ft_1, rule = "exact", part = "header")
ft_1
ft_2 <- hrule(ft_1, rule = "auto", part = "header")
ft_2
# }
Run the code above in your browser using DataLab