Broken code

```
library(shiny)
source("gradientInput.R")
ui <- fluidPage(
gradientInputUI("cols"),
tableOutput("result"),
actionButton("reset", "Reset")
)
server <- function(input, output, session) {
gradient <- callModule(gradientInput, "cols", init_cols = c(10, 50, 70))
output$result <- renderTable(gradient$result())

observeEvent(input$reset, {
gradient$reset()
})
}
shinyApp(ui, server)
```

The above code no longer generate the gradient input expected widget with trhee inital colors not sure why and how this was broken

Start by running the supplied Shiny example and inspect gradientInput.R, focusing on gradientInputUI, gradientInput, and the init_cols call. Done means the gradient input widget renders again with the three initial colors 10, 50, and 70, and the reset action still works.

Written by the indexing model from the issue text.