# NOT RUN {
## Create the reactable table and then pipe in the title
table <- reactable(iris[10:29, ])
table %>%
add_title("This is a title")
## Use options to adjust the style and position of the title
table %>%
add_title("This is a title", align = "center", font_color = "red")
# }
Run the code above in your browser using DataLab