How to squeeze the distance and size of the numerical input box in rshiny?

Question

I want to short the distance bewteen the input box and also the size of the input box

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      
      numericI