Input handlers: with getType

1. Add a custom data attribute to the input tag

customTextInput <- function(...) {

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

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

}