Group 1: Exercise 3

How could you change the return value of randomUI() to make the display more attractive?

1. Placing the Go button before the returned values.
2. Use bslib::value_box().

randomUI <- function(id, title) {
  ns <- NS(id)
  tagList(
    actionButton(ns("go"), "Go!"),
    value_box(title = title,
              value = textOutput(ns("val"))
    )
  )
}