Форматирование области на основе ввода текста пользователем

Question

У меня есть таблица, которую я показываю, используя блестящее приложение. На данный момент я использую форматируемую таблицу, где она создает разрывы на основе значений в столбце, а затем окрашивает таблицу. Но теперь я хочу записать пользовательский ввод для минимума и максимума, который хочет пользователь, и соответственно раскрасить таблицу. Как мне этого добиться?

Ниже приведен код, который я использую для форматирования

```
brks <- reactive({ quantile(intrc_pattern()$pct, probs = seq(.05, .95, .05), na.rm = TRUE)})
clrs <- reactive({ round(seq(255, 175, length.out = length(brks()) + 1), 0) %>%
{paste0("rgb(",.,",", ., ",255 )")}})

      intrc_pattern_reshape<- reactive ({datatable(intrc_pattern_re(),options = list(searching = FALSE,pageLength = 15, lengthChange = FALSE))%>%
                                formatPercentage(colnames(intrc_pattern_re()), 2)%>%
         formatStyle(names(intrc_pattern_re()),backgroundColor = styleInterval(brks(), clrs()))
})
```