# NOT RUN {
require("gdtools")
fontname <- "Brush Script MT"
if( font_family_exists(fontname) ){
ft_1 <- flextable(head(iris))
ft_2 <- font(ft_1, fontname = fontname, part = "header")
ft_2 <- font(ft_2, fontname = fontname, j = 5)
ft_2
}
# }
Run the code above in your browser using DataLab