时间戳

首页 > 解决方案 > 减少 TextInput 小部件中的输入

shiny - 减少 TextInput 小部件中的输入

问题描述

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

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

但这行不通。如果您能提出一些适合页面中这些字段的方法，那就太好了。我能够减少文本标签，但条目占用了太多空间。

标签： shiny

解决方案

您可以通过添加类来获得更小的文本输入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"))

推荐阅读