减少TextInput小部件中的输入

Question

我对RShiny非常陌生，因此尝试创建一个仪表板，在该仪表板中，将基于单击actionButtons来预先填充表单。我有这种形式的多个字段。我想减小TextInput小部件中输入的大小。我尝试了以下代码：

div（style =“ height：60px;”，textInput（“ pt1”，label = div（style =“ font-size：11px”，“患者ID”），value =“ 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"))