ошибка развертывания блестящего приложения в значении [[3l]] (cond): попытка использовать кран без установки зеркала

Question

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

Ошибка в func (fname, ...): app.R не возвращает объект блестящий.appobj.

и на стороне сервера shinyapp я получаю ошибку:

ошибка в значении [3l]: попытка использовать кран без установки зеркала вызовов: local ... trycatch -> список trycatch -> trycatch one ->

Я попытался установить зеркало вручную в своем приложении, используя

r = getOption("repos")
r["CRAN"] = "http://cran.us.r-project.org"
options(repos = r)

, однако, это не помогло, любая помощь будет принята с благодарностью!Я в растерянности!

##### Packages 
library(shiny)
library(dplyr)
library(sf)
library(leaflet)
library(shinydashboard)
library(rsconnect)

options(stringsAsFactors = F)

#read sf object
route_maandag_1<- st_read("route_maandag_1.shp", crs = 28992)


# lijn data moet met coordinates, geen sf object
lijn_coords<- do.call(rbind, (st_transform(route_maandag_1, crs = 4326) %>% st_geometry(.))) %>% 
  as_tibble() %>% setNames(c("lon","lat"))

# icon kleur instellen
icons <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = route_maandag_1$color
)


# Define UI for application that draws a histogram
ui <- dashboardPage(
  dashboardHeader(
    title = "route 1: monday"
  ),

  dashboardSidebar(disable = TRUE),

  dashboardBody(
    fluidRow(
      column(width = 12,
             box(width = NULL, solidHeader = TRUE,
                 leafletOutput("map", width = "100%", height = "90vh"))))
  )
)



# Define server logic required to draw a histogram
server <- function(input, output) {

  # plot the data in leaflet
  output$map <- renderLeaflet({
    leaflet(data = st_transform(route_maandag_1, crs = 4326)) %>%
      addProviderTiles("Stamen.Terrain") %>%
      setView(lng = 4.314960, lat = 51.916024, zoom = 10) %>%
      addAwesomeMarkers(icon=icons,
                        popup = paste("<i>", route_maandag_1$Stop, "</i></br>",
                                      "<i>", paste(route_maandag_1$Straat, paste(route_maandag_1$Huisnummer,route_maandag_1$Huisletter), sep = " : "), "</i></br>")) %>%
      addPolylines(data = lijn_coords, lng = ~lon, lat = ~lat,
                   opacity = 1,
                   color = "black",
                   weight = 5)
  })

}



# Run the application 
shinyApp(ui = ui, server = server)