2015-04-23 78 views
0

我有一个非常基本的Shiny应用程序。R闪亮 - 调整大小数字输入框

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细节应用于特定的元素?

+0

这里有可能有所帮助的信息:http://stackoverflow.com/questions/20637248/shiny-4-small-textinput-boxes-side-by-side – rysqui

回答

0

这有效,虽然它是全球性的CSS,我宁愿有具体的元素。我在ui.r中的fluidPage()元素中添加了这个元素,并调整了这两个元素的大小。

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

")) 
)