Уменьшение входных данных в виджете TextInput

Question

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

div (style = "height: 60px;", textInput ("pt1", label = div (style = "font-size: 11px", "Patient ID"), значение= "12499")),

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

Answer 1

Вы можете вводить меньше текста, добавив класс input-sm. Вот способ сделать это:

smallInput <- function(tag) {
  tag$children[[2]] <- htmltools::tagAppendAttributes(tag$children[[2]], class = "input-sm")
  tag
}

и в вашем интерфейсе сделайте

smallInput(textInput("pt1", label = div(style = "font-size:11px","Patient ID"),value="12499"))