如何使选择输入框和滑块在 rshiny 中变小？

如何解决如何使选择输入框和滑块在 rshiny 中变小？

我有一个选择框和一个滑块 谁能告诉我怎么把它们变小？ 我的意思是盒子的大小。高度和宽度

ui <- fluidPage(
   
    fluidRow(
        column(5,selectInput("case","case",c("slider1"="slider1","slider2"="slider2"
               ))),column(5,sliderInput("slider1","slider1",min = 0,max = 9,value = 5)),sliderInput("slider2","slider2",max = 20,value = 2))
        
        
    ))

server <- function(input,output) {}

# Run the application 
shinyApp(ui = ui,server = server)