Question

我有一个非常基本的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表单中size元素的<input>属性。

我怎么会这么闪亮？是否有将css / html细节应用于特定元素的标准方法？

Answer 1

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

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

Answer 2

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

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

"))
)

R Shiny - 调整numericInput框的大小

2 个答案: