在Shiny應用程序中導入數據使其無法發佈

所以我一直在創建一個Shiny應用程序，它可以在我的機器上正常運行。但是，當我嘗試將其發佈到shinyapp.io時，它給了我錯誤：在Shiny應用程序中導入數據使其無法發佈

錯誤：發生錯誤。檢查您的日誌或與應用作者聯繫以獲得澄清。

我使用了令牌，並試圖用示例應用程序發佈，所有這些工作，所以我已經剝去了整個應用程序來查看問題的位置，並發現read_excel函數使我無法發佈。所以這裏是我能夠發佈的簡化版本。查找下面是什麼使其無法發佈。

library(shiny) 
library(leaflet) 
library(dplyr) 
library(readxl) 

ui <- fluidPage(
    bootstrapPage(
    tags$style(type = "text/css", "html, body {width:100%;height:100%}"), 
    leafletOutput("map", width = "100%", height = 800), 
    absolutePanel(top = 10, right = 10, 
        checkboxGroupInput("Containers", "Type containers", 
            choices = c("Restafval ondergronds" = 1, "Papier ondergronds" = 2, "Glas ondergronds" = 3, 
              "Rest halfverdiept" = 4, "Papier halfverdiept" = 5, "Glas halfverdiept" = 6), selected= c(1,4)), 
       radioButtons("Grenzen", "Grenzen gebieden weergeven", 
          choices = c("Stadsniveau" = 1, "Wijkniveau" = 2, "Buurtniveau" = 3), selected= 1), 
       radioButtons("Radii", "Straal vanaf containers", 
          choices = c("Geen" = 0, "100 meter" = 1, "200 meter" = 2, "300 meter" = 3, "400 meter" = 4, "500 meter" = 5), selected= 0))) 
) 


server <- function(input, output) { 
    output$map <- renderLeaflet({ 
    leaflet() %>% 
     addProviderTiles("Stamen.Terrain") %>% 
     setView(lng = 4.344572,lat = 51.915739 ,zoom = 12) %>% 
     addLegend("bottomright", 
      colors= c("blue", "deepskyblue", "green", "chartreuse", "red", "orange"), 
      labels= c("Restafval ondergronds", "Restafval halfverdiept", "Papier ondergronds", "Papier halfverdiept", "Glas ondergronds", "Glas halfverdiept"), 
      title = "Leganda containers per soort:", opacity = 0.5) 
    }) 
} 


shinyApp(ui = ui, server = server)

然而，隨着導入數據時：

library(shiny) 
library(leaflet) 
library(dplyr) 
library(readxl) 

containers_gathered <- read_excel("containers_gathered.xlsx") 

ui <- fluidPage( etc...

（甚至之前在服務器部分中添加層）。它阻止我發佈應用程序。數據集位於項目文件夾中，那麼我在這裏做錯了什麼？

正如我所說，它都在本地正常運行。還有一個空的環境。希望有人能夠協助。

當使用rsconnect ::執行showlogs（），它說：

1: local 
Error : An error has occurred. Check your logs or contact the app author for 
clarification. 
3: eval 
2: eval.parent

來源

2017-10-11 vincentp

我找到了解決辦法。而不是將數據保存在應用程序保存的項目目錄文件夾中，它必須位於保存項目的子文件夾中。而不是

containers_gathered <- read_excel("Data/containers_gathered.xlsx")

：所以

containers_gathered <- read_excel("containers_gathered.xlsx")

來源

2017-10-12 07:40:08 vincentp

在Shiny應用程序中導入數據使其無法發佈

回答

相關問題