Question

部署应用时遇到问题。该应用程序工作正常，但我无法部署它。这是错误文本：

准备部署应用程序... DONE上传包   应用程序：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)

部署应用程序时出现未知的存储库错误

0 个答案: