# NOT RUN {
ft_1 <- flextable( head( iris ))
ft_1 <- set_header_labels(ft_1, Sepal.Length = "Sepal length",
Sepal.Width = "Sepal width", Petal.Length = "Petal length",
Petal.Width = "Petal width"
)
ft_2 <- flextable( head( iris ))
ft_2 <- set_header_labels(ft_2,
values = list(Sepal.Length = "Sepal length",
Sepal.Width = "Sepal width",
Petal.Length = "Petal length",
Petal.Width = "Petal width" ) )
ft_2
# }
Run the code above in your browser using DataCamp Workspace