title: Shiny: How to adjust the width of the tabsetPanel?
body: <p>Here is my <a href="http://analysisph.weebly.com/shiny-apps.html" rel="noreferrer">app</a> embedded in my site. I want to get rid of the scroll widget below my app, this is due to the width of the tabsetPanel.</p>
  
  <p>I embed the app using this code:</p>
  
  <pre><code>&lt;iframe width="800" height="480" frameborder="0" src="http://spark.rstudio.com/alstated/meanvar/"&gt;&lt;/iframe&gt;
  </code></pre>
  
  <p>App Codes:</p>
  
  <p><strong>ui.R</strong></p>
  
  <pre><code>library(shiny)
  
  # Define UI for application that plots random distributions 
  shinyUI(pageWithSidebar(
    headerPanel(title = ""),
    sidebarPanel(
      sliderInput("size",
                  "Number of Observations",
                  min = 10,
                  max = 200,
                  value = 95),
  
      sliderInput("mu",
                  "Mean",
                  min = -100, 
                  max = 100,
                  value = 0),
  
      sliderInput("sd",
                  "Standard Deviation",
                  min = 1,
                  max = 6,
                  value = 3),
  
      checkboxInput(inputId = "indiv_obs",
                    label = "Show individual observations",
                    value = FALSE),
  
      checkboxInput(inputId = "density",
                    label = "Show density estimate",
                    value = FALSE),
  
      conditionalPanel(condition = "input.density == true",
                       sliderInput(inputId = "bw_adjust",
                                   label = "Bandwidth Adjustment",
                                   min = 0.2,
                                   max = 2,
                                   value = 1,
                                   step = 0.2))
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Plot", 
                 plotOutput(
                   outputId = "histogram", 
                   height = "400px",
                   width = "400px")),
        tabPanel("Summary",
                 verbatimTextOutput(outputId = "datsummary"))
      ))
  )
  )
  </code></pre>
  
  <p><strong>server.R</strong></p>
  
  <pre><code>library(shiny)
  
  # Define server logic required to generate and plot a random distribution
  shinyServer(function(input, output) {
  
    data &lt;- reactive(rnorm(
      n = input$size, 
      mean = input$mu, 
      sd = input$sd
    ))
  
    output$histogram &lt;- renderPlot({
  
      hist(data(),
           probability = TRUE,
           xlab = "Data",
           ylab = "Density",
           main = "Histogram of Random Samples")
  
      if(input$indiv_obs){
        rug(data())
      }
  
      if(input$density){
        dens &lt;- density(data(), adjust = input$bw_adjust)
        lines(dens, col = "blue")
      }
  
    })
  
    output$datsummary &lt;- renderPrint(summary(data()))
  })
  </code></pre>
  
  <p>Any help is greatly appreciated!</p>