R 闪亮的应用程序在部署时会变成灰色（与服务器断开连接），在本地运行良好

我部署了一个应用程序 这是我的申请表： 这是存储库：

用户界面

服务器.R

library(shiny)
library(raster)
polygons <- shapefile("data/TM_WORLD_BORDERS_SIMPL-0.3.shp")
gap<-read.csv("data/gapminder.csv",header = TRUE)
names(gap)[1]<-paste("NAME")

shinyServer(function(input, output) {

output$distPlot <- renderPlot({

polygons1 <- merge(polygons,gap, by="NAME")

spplot(polygons1,input$checkGroup, main=paste(input$checkGroup), lwd=.8, col="black")

})

output$table <-  renderDataTable({ 

  gap2<-subset(gap, select = c("NAME",input$checkGroup));

  gap2<-gap2[with(gap2, order(-gap2[,2])),];

  gap2
})
})

库（闪亮）
图书馆（光栅）
多边形可能csv文件的路径有问题。我试着用其他的方式建立，但我没有成功。我按row.names更改了标题。你能给我一些线索吗？我可以做得更好。再次感谢！嗨，玛迪。我已经解决了我的问题。我查看了日志。这部分向我展示了错误。没有库rgdal。有相同的问题。所以错误的原因是您正在导入库不可用？
library(shiny)
library(raster)
polygons <- shapefile("data/TM_WORLD_BORDERS_SIMPL-0.3.shp")
gap<-read.csv("data/gapminder.csv",header = TRUE)
names(gap)[1]<-paste("NAME")

shinyServer(function(input, output) {

output$distPlot <- renderPlot({

polygons1 <- merge(polygons,gap, by="NAME")

spplot(polygons1,input$checkGroup, main=paste(input$checkGroup), lwd=.8, col="black")

})

output$table <-  renderDataTable({ 

  gap2<-subset(gap, select = c("NAME",input$checkGroup));

  gap2<-gap2[with(gap2, order(-gap2[,2])),];

  gap2
})
})