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