library(flextable)
schedule <- data.frame(
time = c("9h", "10h", "11h", "14h", "15h", "16h"),
monday = c("Math", "Math", "French", "History", "Science", "French"),
tuesday = c("English", "Math", "Art", "Math", "Math", "French"),
wednesday = c("Science", "Math", "Science", "English", "English", "French"),
stringsAsFactors = FALSE
)
ft <- flextable(schedule)
ft <- theme_box(ft)
ft <- merge_h(ft)
ft
Run the code above in your browser using DataLab