title: R - Shiny can not find "container"
body: <p>I am trying to create a basic financial shiny app that takes a company's ticker symbol as it's input and utilizes various functions in the quantmod package to return certain information (income statement, cash flow, etc.). I'm running into and error that reads, "ERROR: could not find function "container." I know most of the time shiny errors are due to not having a closing bracket somewhere but that doesn't seem to be the case and I haven't run into this error before when playing around. Any help appreciated.</p>
  
  <p>ui.R</p>
  
  <pre><code>library(shiny)
  shinyUI(
        fluidPage(
              titlePanel("Should You Invest"),
              sidebarLayout(
                    sidebarPanel(h3("How It Works"),
                          "You input the ticker symbol of a company, and this app returns the
                          Net Current Asset Value per Share, otherwise known as Grahams Rule", 
                          textInput("ticker",
                                    "Company Ticker",
                                    placeholder = "AAPL"),
                          submitButton("Submit"),
                          textOutput("last_price",
                                     "Last Traded Price"),
                          textOutput("NCAVPS",
                                     "Net Current Asset Value per Share")
                    ),
                    mainPanel(
                          tabsetPanel(type = "pills",
                                      tabPanel("Annual",
                                               tabsetPanel(type = "tabs",
                                                           tabPanel("Balance Sheet",
                                                                    textOutput("annual_bs")),
                                                           tabPanel("Cash Flow",
                                                                    textOutput("annual_cf")),
                                                           tabPanel("Income Statement",
                                                                    textOutput("annual_is"))
                                                        )
                                      ),
                                      tabPanel("Quarter",
                                               tabsetPanel(type = "tabs",
                                                           tabPanel("Balance Sheet",
                                                                    textOutput("quarter_bs")),
                                                           tabPanel("Cash Flow",
                                                                    textOutput("quarter_cf")),
                                                           tabPanel("Income Statement",
                                                                    textOutput("quarter_is"))
                                                        )
                                      )         
                          )
                    )
              )
        )
  )
  </code></pre>
  
  <p>server.R</p>
  
  <pre><code>library(shiny)
  shinyServer(function(input, output) {
        library(quantmod)
        change_ticker &lt;- reactive(function() {
              ticker &lt;- input$ticker
              adj_ticker &lt;- getFin(ticker)
              financial &lt;- get(adj_ticker)
              financial
        })      
        output$last_price &lt;- renderTable(
              getQuote(ticker)
        )
        output$annual_bs &lt;- renderText(
              viewFinancials(financial, type = "BS", period = "A")
        )
        output$annual_cf &lt;- renderText(
              viewFinancials(financial, type = "CF", period = "A")
        )
        output$annual_is &lt;- renderText(
              viewFinancials(financial, type = "IS", period = "A")
        )
        output$quarter_bs &lt;- renderText(
              viewFinancials(financial, type = "BS", period = "Q")
        )
        output$quarter_cf &lt;- renderText(
              viewFinancials(financial, type = "CF", period = "Q")
        )
        output$quarter_is &lt;- renderText(
              viewFinancials(financial, type = "IS", period = "Q")
        )
  })
  </code></pre>