title: shiny 4 small textInput boxes side-by-side
body: <p>I've got a shiny server version 0.4.0 and I want to have 4 small textInput boxes to look like this:</p>
  
  <pre><code>x-min x-max y-min y-max
  [...] [...] [...] [...]
  </code></pre>
  
  <p>They now look like this:</p>
  
  <pre><code>x-min 
  [...................]
  x-max
  [...................]
  y-min 
  [...................]
  y-max 
  [...................]
  </code></pre>
  
  <p>With this code:</p>
  
  <pre><code>textInput(inputId="xlimitsmin", label="x-min", value = 0.0),
  textInput(inputId="xlimitsmax", label="x-max", value = 0.5),
  textInput(inputId="ylimitsmin", label="y-min", value = 0.5),
  textInput(inputId="ylimitsmax", label="y-max", value = 1.0),
  </code></pre>
  
  <p>Any ideas how to achieve this?</p>
  
  <p>EDITED: I've successfully changed things like this elsewhere in the code:</p>
  
  <pre><code>&lt;style type="text/css"&gt;select#yaxis4 { height: 280px; width: 500px; }&lt;/style&gt;
  [... which links to this later on in the page...]
            &lt;label class="control-label" for="yaxis4"&gt;Y-Axis&lt;/label&gt;
            &lt;select id="yaxis4" multiple="multiple"&gt;
  </code></pre>
  
  <p>And this is what it looks like for the ones that don't work:</p>
  
  <pre><code>&lt;style type="text/css"&gt;select#xlimitsmax { display: inline-block; max-width: 50px; }&lt;/style&gt;
  [... which links to...]
            &lt;label&gt;x-max&lt;/label&gt;
            &lt;input id="xlimitsmax" type="text" value="0.5"/&gt;
  </code></pre>
  
  <p>EDITED:</p>
  
  <p>Here is a self contained example <code>ui.R</code> that doesn't work:</p>
  
  <pre><code>library(shiny)
  shinyUI(
  pageWithSidebar(
    # application title
    headerPanel("test01"),
    sidebarPanel(
      tags$head(
        tags$style(type="text/css", "select { max-width: 360px; }"),
        tags$style(type="text/css", ".span4 { max-width: 360px; }"),
        tags$style(type="text/css",  ".well { max-width: 360px; }")
                ),
      wellPanel(
        p(strong("Side Panel:"))
               )
     ),
    mainPanel(
      textInput(inputId="xlimitsmin", label="x-min", value = 0.0),
      tags$head(tags$style(type="text/css", "select#xlimitsmin { max-width: 50px }")),
      textInput(inputId="xlimitsmax", label="x-max", value = 0.5),
      tags$head(tags$style(type="text/css", "select#xlimitsmax { display: inline-block; max-width: 50px; }"))
      )
  ))
  </code></pre>
  
  <p>Resulting page:</p>
  
  <p><img src="https://i.stack.imgur.com/vXOaO.png" alt="enter image description here"></p>