ui <- bslib::page_fixed(
shiny::h1("Pep talk"),
inline("When you go out there tonight, give ",
inline_slider("amount", 10, 0, 110, step = 1, default = 50,
placeholder = "Enter a percentage.", meaning = "Percent to give"),
"%.")
)
Run the code above in your browser using DataLab