up <- bs_icon("arrow-up-circle", size = "9em", class = "text-success")
up_fill <- bs_icon("arrow-up-circle-fill", size = "9em", class = "text-success")
# utility class will only apply with a modern version of Bootstrap
if (interactive() && requireNamespace('bslib')) {
bslib::page_fluid(up, up_fill)
}
Run the code above in your browser using DataLab