R Shiny - 调整数字输入框的大小答案

【问题标题】：R Shiny - resize numericInput boxR Shiny - 调整数字输入框的大小
【发布时间】：2015-06-30 22:07:23
【问题描述】：

我有一个非常基本的 Shiny 应用程序。

ui.R:

library(shiny)

shinyUI(fluidPage(
  titlePanel("Average Run Length Simulation"),

  fluidRow(
    tabsetPanel(
      tabPanel("Shewhart v. Shewhart",
        fluidRow(
          column(4,"Rule"),
          column(2,"Group 1"),
          column(2,"Group 2")
          ),
        fluidRow(
          column(4,"1 point more than k sigma away from mean"),
          column(2,
                 checkboxInput("svsg1r1",label=" ",value=F),
                 numericInput("svsg1k1",label=" ",value=3,min=1,step=1)
                 ),
          column(2,
                 checkboxInput("svsg2r1",label=" ",value=F),
                 numericInput("svsg2k1",label=" ",value=3,min=1,step=1)
                 )
          )
        )
      )
    )
))

server.r 文件是 Rstudio 在新项目中创建的基本文件。

我真正想要的是小部件元素的表格布局，但是，如果没有大量工作，我认为我不会得到它，这不值得。因此，相反，我想减小 numericInput() 框的宽度，类似于 HTML 表单中 <input> 元素的 size 属性。

我将如何在闪亮时做到这一点？是否有一种标准方法可以将 css/html 细节应用于特定元素？

【问题讨论】：

这里有一些信息可能会有所帮助：stackoverflow.com/questions/20637248/…

标签： r shiny

【解决方案1】：

这行得通，虽然它是全局 css，我宁愿有特定的元素。我在 ui.r 的 fluidPage() 元素中添加了这个，它调整了两个框的大小。

tags$head(
tags$style(HTML("
  input[type=\"number\"] {
    width: 100px;
  }

"))
)

【讨论】：

【解决方案2】：

对于数字输入框特定的大小调整，您可以使用 CSS id 选择器。在上面的示例中，以下内容应仅用于调整第一个框的大小。

tags$head(
tags$style(HTML("
  #svsg1k1 {
    width: 100px;
  }
")))

【讨论】：