Мое приложение Shinydashboard не развертывается: пакет не содержит файл манифеста - PullRequest
0 голосов
/ 05 сентября 2018

Я новичок в 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")

Кто-нибудь знает, как решить эту ошибку?

Спасибо

1 Ответ

0 голосов
/ 11 сентября 2018

удалить setwd("C:/Users/Baillargeon/Desktop/R_PROG/RShiny_test") в качестве первой строки. Когда вы развертываете на shinyapps.io, это среда Linux. поэтому C:/ не имеет смысла.

Более того, по умолчанию в вашем рабочем каталоге находятся ui.R и server.R. Таким образом, ваш путь к папке с данными должен соответствовать этому. Который выглядит так из вашего кода.

читать документацию 9.4 Сообщения «Отключено от сервера»

Надеюсь, это поможет

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...