闪亮的应用程序挂起一个'；请稍候'；在移动设备上加载时的消息（R）

我已经构建了一个闪亮的应用程序，从Quandl加载数据，并显示有助于跟踪我投资的图表。我已将此发布到shinyapps.io

这可以在桌面上正常加载，但只会挂在移动设备上的“请稍候”加载屏幕上。我在谷歌Nexus5上用Chrome进行了测试，在iPad2上用Chrome和Safari进行了测试。我还尝试在两台设备上请求桌面站点，但都没有成功。RStudio的网站说，移动设备不应该出现问题。（）

起初我认为这可能与使用ggplot2或quandl软件包有关，但后来我注意到我以前构建的一个非常简单的应用程序也有同样的问题

我的简单UI.R文档的顶部如下所示：

shinyUI(fluidPage(
    headerPanel("Can you catch Chelsea?"),
    sidebarPanel(
            dataTableOutput('lTable')
    ),
    mainPanel(
            tabsetPanel(
                    tabPanel("League Predictor",

# Let's first create the data frame:

Club <- 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 <- c(27, rep(28, 18), 27)

Points <- c(63, 58, 54, 53, 51, 50, 49, 42, 40, 39, 35, 30, 30, 28,
        27, 26, 25, 22, 22, 18)

leagueTable <- data.frame(Club, Played, Points)

shinyServer(
    function(input, output) {
            output$lTable <- renderDataTable(leagueTable, options=list(paging = FALSE, searching = FALSE))
            southampton <- reactive({

我的simpler server.R文档的顶部如下所示：

shinyUI(fluidPage(
    headerPanel("Can you catch Chelsea?"),
    sidebarPanel(
            dataTableOutput('lTable')
    ),
    mainPanel(
            tabsetPanel(
                    tabPanel("League Predictor",

# Let's first create the data frame:

Club <- 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 <- c(27, rep(28, 18), 27)

Points <- c(63, 58, 54, 53, 51, 50, 49, 42, 40, 39, 35, 30, 30, 28,
        27, 26, 25, 22, 22, 18)

leagueTable <- data.frame(Club, Played, Points)

shinyServer(
    function(input, output) {
            output$lTable <- renderDataTable(leagueTable, options=list(paging = FALSE, searching = FALSE))
            southampton <- reactive({

#让我们首先创建数据帧：
俱乐部这似乎是资本化的问题

上面问题中的两个链接甚至没有加载到桌面上。但是，如果我使用这些链接，并且在桌面或移动设备上不再出现问题。
您在这里是正确的。这是shinyapps.io上的一个已知问题，可能有点混淆：shinyapps.io上的应用程序名称不区分大小写（两个应用程序不能共享同一个不区分大小写的名称），但应用程序URL区分大小写。