# NOT RUN {
bs4_vars <- c("body-bg", "body-color", "primary", "border-radius")
bs_theme_new()
bs_theme_get_variables(bs4_vars)
bs_theme_new(bootswatch = "darkly")
bs_theme_get_variables(bs4_vars)
# }
Run the code above in your browser using DataLab