title: Shiny app hangs with a 'please wait' message when loaded on a mobile device (R)
body: <p>I've built a shiny app to load data from Quandl and display graphs that help track my investments. I have published this to shinyapps.io at <a href="https://jackpeacock.shinyapps.io/investmentgraphs" rel="nofollow noreferrer">https://jackpeacock.shinyapps.io/investmentgraphs</a></p>
  
  <p>This loads fine on a desktop but just hangs at the 'please wait' loading screen on a mobile device. I have tested this with Chrome on a Google Nexus 5 and in Chrome and Safari on an iPad 2. I have also tried requesting the desktop site on both devices with no success. RStudio's website says there shouldn't be issues with mobile devices. (<a href="https://www.rstudio.com/faq-items/will-shiny-app-work-properly-mobile-device-iphone-android-ipad-kindle-etc/" rel="nofollow noreferrer">https://www.rstudio.com/faq-items/will-shiny-app-work-properly-mobile-device-iphone-android-ipad-kindle-etc/</a>)</p>
  
  <p>At first I thought this might have something to do with using ggplot2 or quandl packages, but then I noticed I am having the same problem with an extremely simple app I have built previously <a href="https://jackpeacock.shinyapps.io/chelseapredictor" rel="nofollow noreferrer">https://jackpeacock.shinyapps.io/chelseapredictor</a>.</p>
  
  <p>The top of my simpler UI.R document looks like this:</p>
  
  <pre><code>shinyUI(fluidPage(
      headerPanel("Can you catch Chelsea?"),
      sidebarPanel(
              dataTableOutput('lTable')
      ),
      mainPanel(
              tabsetPanel(
                      tabPanel("League Predictor",
  </code></pre>
  
  <p>And the top of my simpler server.R document looks like this:</p>
  
  <pre><code># Let's first create the data frame:
  
  Club &lt;- c("Chelsea", "Man City", "Arsenal", "Man Utd", "Liverpool",
        "Spurs", "Southampton", "Stoke", "Swansea", "West Ham",
        "Newcastle", "Crystal Palace", "West Brom", "Everton",
        "Hull", "Sunderland", "Aston Villa", "QPR", "Burnley",
        "Leicester")
  
  Played &lt;- c(27, rep(28, 18), 27)
  
  Points &lt;- c(63, 58, 54, 53, 51, 50, 49, 42, 40, 39, 35, 30, 30, 28,
          27, 26, 25, 22, 22, 18)
  
  leagueTable &lt;- data.frame(Club, Played, Points)
  
  shinyServer(
      function(input, output) {
              output$lTable &lt;- renderDataTable(leagueTable, options=list(paging = FALSE, searching = FALSE))
              southampton &lt;- reactive({
  </code></pre>
  
  <p>Does anyone know why I am having problems with mobile devices?</p>