R閃亮 - 調整大小數字輸入框

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表單中<input>元素的size屬性。

我該如何做到這一點閃亮？有沒有一種標準的方式來將css/html細節應用於特定的元素？

Answer 1

這有效，雖然它是全球性的CSS，我寧願有具體的元素。我在ui.r中的fluidPage()元素中添加了這個元素，並調整了這兩個元素的大小。

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

")) 
)