1

我是 RShiny 的新手，我决定创建我的第一个应用程序。

当我用这个命令启动我的应用程序时，它会立即执行，一切都很好。

shinyApp(ui, server)

但是当我尝试将我的应用程序部署到 Shinyapps.io 服务器时，我遇到了这个错误

错误：未处理的异常：子任务 547685425 失败：解析清单时出错：捆绑包不包含清单文件：data/données.xlsx

看起来 Shiny 找不到我的文档données.xlsx，这是我正在为我的应用程序读取数据的地方，但我在代码中做的第一件事是设置我的目录。

这是我的代码：

setwd("C:/Users/Baillargeon/Desktop/R_PROG/RShiny_test")

library(shiny)
library(shinydashboard)
library(DT)
library(rsconnect)
library(ggplot2)
library(plotly)
library(dplyr)
library(xlsx)

donnees <- read.xlsx("data/données.xlsx", sheetName = "donnees", encoding = "UTF-8")

[...]

ui <- dashboardPage(


      dashboardHeader(title = "Employés"),
      dashboardSidebar(
        sidebarMenu(
          menuItem("Jeu de données",tabName="Donnees",icon=icon("database")),
          menuItem("Graphiques",tabName="graph",icon=icon('signal'))
        )
      ),

      dashboardBody(
        tabItems(

          tabItem(tabName="Donnees",
                  h2("Données"),
                  DT::dataTableOutput("donnees")
                 ),

          tabItem(tabName = "graph", h2("Graphiques"),
                  fluidRow(
                    box(plotlyOutput("plot_sites")),
                    box(plotlyOutput("plot_sexe"))

                          )
                 )
                )
        )
)


server <- function(input,output){

  output$donnees = DT::renderDataTable({

    donnees
  })

  output$plot_sites <- renderPlotly({
    plot_ly(final_sites, labels= final_sites$Site, values= final_sites$Freq, type="pie",
            textposition = 'inside',
            textinfo = 'label+percent',
            showlegend = FALSE
           ) %>%
          layout(title="Répartition des employés selon l'arondissement")
  })

  output$plot_sexe <- renderPlotly({
    plot_ly(final_sexe, labels= final_sexe$Sexe, values= final_sexe$Freq, type="pie",
            textposition = 'inside',
            textinfo = 'label+percent',
            showlegend = FALSE
    ) %>%
      layout(title="Répartition des employés selon leurs Sexe")
  })


}


shinyApp(ui, server)


rsconnect::deployApp("C:/Users/Baillargeon/Desktop/R_PROG/RShiny_test")

有谁知道如何解决这个错误？

谢谢

4

1 回答 1

1

setwd("C:/Users/Baillargeon/Desktop/R_PROG/RShiny_test")作为第一行删除。当您在 shinyapps.io 上进行部署时，它是一个 linux 环境。所以C:/没有意义。

此外，默认情况下，您的工作目录是您的ui.R和server.R所在的位置。因此，您的数据文件夹路径应该与此相关。从您的代码中看起来像这样。

阅读文档9.4 “与服务器断开连接”消息

希望能帮助到你

于 2018-09-11T17:52:20.107 回答