Неизвестная ошибка хранилища при развертывании приложения - PullRequest
Новая
       6

Неизвестная ошибка хранилища при развертывании приложения

0 голосов
/ 13 мая 2018

У меня проблема при развертывании приложения. Приложение работает нормально, но я не могу его развернуть. Вот текст ошибки:

Подготовка к развертыванию приложения ... СДЕЛАНО Загрузка пакета для application: 342268 ... DONE Комплект развертывания: 1371675 для приложения: 342268 ... Ожидание задачи: 525537389 здание: Манифест разбора

########################## Начало журнала задач ##################### ########### ########################### Конец журнала задач #################### ############# Ошибка: необработанная Исключение: дочерняя задача 525537390 завершилась ошибкой: ошибка при анализе манифеста: неизвестный репозиторий для

источник пакета: rspm Выполнение остановлено

Также вот мой код. Как примечание, мой app.R и файл данных находятся в одной подпапке. Заранее спасибо 

library(rsconnect)
library(shiny)
library(ggplot2)
library(tidyverse)
library(DT)
library(readxl)

insurance <- readxl::read_excel("shiny_assignment_data.xlsx")

insurance <- insurance %>% mutate(date=lubridate::parse_date_time(date, orders = "dmY"))
insurance <- insurance %>% arrange(pension_fund_company, date)
insurance <- insurance %>% mutate(unit_fund = fund_size_participants/n_of_participants)
insurance <- insurance %>% mutate(expense = contribution-size_total) 
insurance <- insurance %>% mutate(expense_ratio = expense/contribution)

all_companies <- sort(unique(insurance$pension_fund_company))


# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Pension Funds Company Suggestor"),

    # Sidebar with a slider input for number of bins
    sidebarLayout(
        sidebarPanel(
            selectInput(inputId="pension_fund_company",
                        label= "Select Company:",
                        choices= all_companies ,
                        selected = "Aegon Emeklilik ve Hayat",
                        multiple = TRUE,
                        selectize = TRUE),
            sliderInput("date",
                        "Date",
                        min = as.Date("2017-01-01", "%Y-%m-%d"),
                        max = as.Date("2018-03-31", "%Y-%m-%d"),
                        value = as.Date(c("2017-02-01","2018-01-31")),timeFormat="%Y-%m-%d")
        ),

        # Show a plot of the generated distribution
        mainPanel(
            plotOutput(outputId = "unitfund"),
            plotOutput(outputId = "expenseratio")
        )
    )
)

# Server
server <- function(input, output) {

    # Create unit fund plot
    output$unitfund <- renderPlot({
        insurance <- insurance %>% 
            filter(pension_fund_company %in% input$pension_fund_company) %>%
            filter(date >= input$date[1] & date <= input$date[2])
        ggplot(data=insurance, aes(date,unit_fund, color=pension_fund_company)) + geom_line() +
            labs(title="Unit Fund Comparision", x="Date", y="Unit Fund", color="Company") + 
            theme_bw()
    })

    # Create expense ratio plot
    output$expenseratio <- renderPlot({
        insurance <- insurance %>% 
            filter(pension_fund_company %in% input$pension_fund_company) %>%
            filter(date >= input$date[1] & date <= input$date[2])
        ggplot(data=insurance, aes(date,expense_ratio, color=pension_fund_company)) + geom_line() +
            labs(title="Expense Ratio Comparision", x="Date", y="Expense Ratio", color="Company") + 
            theme_bw()
    })

}

# Create a Shiny app object
shinyApp(ui = ui, server = server)
...