Extending input handlers with numbers

3. Update the customTextInput function to manage numeric data.

customTextInput <- function(...) {

type <- if (inherits(value, "Date")) {
  "date"
} else if (inherits(value, "numeric")) {
  "number"
} else {
  NULL
}

tags$input(
  id = inputId,
  type = "text",
  class = "form-control input-text",
  value = value,
  placeholder = placeholder,
  `data-data-type` = type # NEW ATRIBUTE
)

}