title: Arranging Input Boxes (selectInput / numericInput etc...) dynamically in columns in R shiny
body: <p>I am taking significant variables from ML model(.rda file),putting them as <code>numericInput</code> box or <code>selectInput</code> Option menu in the UI page. I am getting each Input in different row. I want it as two columns in a row. How can I do that? I am getting it as shown in the <a href="https://i.stack.imgur.com/7pf2V.png" rel="nofollow noreferrer">image</a></p>
  
  <p>Below is the code which I want to modify.</p>
  
  <pre><code> model &lt;- reactive({readRDS(input$Load_model$datapath)})
    temp_col &lt;- reactive({colnames(model()$model)})
    temp_no_col &lt;- reactive({ncol(model()$model)})
  
    abc &lt;- reactive(lapply(model()$model, class))
    process &lt;- eventReactive(input$show_fields, {
      lapply(1:(temp_no_col()), function(i) {
          if(abc()[i] == "numeric" ) {
            numericInput(temp_col()[i], label = temp_col()[i],value = 0)
          }
          else if(abc()[i] == "factor") {
            selectInput(temp_col()[i], label = temp_col()[i],choices = unique(model()$model[i]))
          }
      })
    })
  </code></pre>